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INTRODUCTION 


This  manual  describes  Che  MC68CRX  cross-assembler 
and  a  fortran  transfer  program,  which  were  developed  to 
facilitate  programming  of  the  Motorola  MC68000 
microprocessor,  and  development  of  MC68000  based 
systems.  Both  programs  are  written  in  Fortran  77,  which 
allows  the  user  to  utilize  the  features  of  a  mainframe 
computer,  such  as  the  DEC  11/70  or  DEC  11/45.  The 
cross-assembler  translates  MC68000  assembly  language 
code  into  machine  language.  The  transfer  program 
downloads  the  machine  code  to  the  MC68000. ^ - - — . 

This  manual  is  designed  as  a  reference  to  the 
specifics  of  the  cross-assembler  and  transfer  program, 
and  assumes  that  the  user  is  familiar  with  MC68000 
assembly  language  and  the  host  system.  For  detailed 
information  on  MC68000  machine  code,  the  user  is 

encouraged  to  consult  the  sources  listed  in  APPENDIX  B. 

A  complete  listing  of  the  cross-assembler  and  transfer 

program  is  included  in  APPENDIX  A. 
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ADDA . 23 

ADDQ . 21 

AND . 14 

AND  1 . 23 

n 

ASL . 17 

ASR . 17 

Bcc . 19 

BTST . 28 

CMP . 16 

CMP  1 . 23 

DIVU . 26 

DIVS . 26 

EOR . 17 

EORI . 23 

JMP . 23 

JSR . 24 

LSL . 18 

LSR . 18 

MOVE . 15 
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MOVEA . 22 

MULS . 25 

MULU . 25 

NEG . 20 

NEX . 20 

NOP . 2  7 

ORR . 15 

ORRI . 23 

ROL . 18 

ROR . 18 

RTS . 24 

STOP . 27 

SUB . 13 

SUBA . - . 22 

SUBI . 23 

SWAP . 2  7 


MC68CRX  FORTRAN  PROGRAM  SPECIFICS . 29 

Subroutines  . . 31 

Adding  Mnemonics  to  the  cross  assembler . 34 


Program  and  subroutine  listings . APPENDIX  A 

Bibliography . APPENDIX  B 

MC68000  Design  Module  to  Host  System 

Hardware  Connections . APPENDIX  C 

MVME400  RS-232C"  Module  to  Host  System 

Hardware  Connections . APPENDIX  D 


Compiling  and  Taskbuilding  the  Cross-assembler  ....APPENDIX  E 


SY5T£M  DIA6£AM 


RUNNING  THE  CROSS  ASSEMBLER: 


Begin  by  typing  (on  the  host  terminal): 

RUN  MC68CRX 

program  prompt:  INPUT  MEMORY  LOCATION  (HEX)  AT  WHICH  TO 
BEGIN  PROGRAM  STORAGE  IN  MC68000  RAM  ( < 8000  ,  > 06 FF ) 
user  input:  four  character  hex  string,  which  will  be  the 
program's  starting  address. 


program  prompt:  INPUT  MEMORY  LOCATION 

BEGIN  DATA  STORAGE  IN  MC68000  RAM 

(HEX) 

AT 

WHICH 

TO 

user  input:  four  character  hex  string. 

which 

will 

be 

the 

itarting  address  for  data  storage. 

program  prompt:  INPUT  NAME  OF  ASSEMBLER  CODE  FILE 
user  input:  name  of  file  containing  assembler  code. 

program  prompt:  INPUT  NAME  OF  OUTPUT  (S  RECORD)  FILE  TO  BE 
CREATED:  XXXXX.M68 

user  input:  name  of  file  which  will  contain  assembled  S 
records,  to  be  sent  to  the  MC68000.  5  letters. M68. 

program  prompt:  INPUT  NAME  OF  LIST  FILE  TO  BE  CREATED: 
XXXXX.LST 

user  input:  name  of  file  which  will  contain  assembler  code 
and  its  assembled  hex  code,  useful  for  debugging. 


TRANSFER  OF  S  RECORDS  TO  THE  MC68000 


With  MAXbug  firmware  monitor: 

After  the  MC68CRX  program  has  been  run,  the  S  record 
file  (FNAME.M68)  must  be  sent  to  the  MC68000  using  the 
MC68000  TRANSFER  PROGRAM  in  file  TRANSFER. FTN .  This  program 
should  be  taskbuilt  with  logical  unit  number  1  being  assigned 
to  the  MC68000  terminal,  and  number  5  being  the  terminal 
being  used  on  the  host  system. 


user  input  on  the  host  terminal:  RUN  TRANSFER 
user  input  on  the  MC68000  terminal:  RE;-FNAME  or  RE ; X=FNAME 
with  the  X  option,  S  records  will  be  displayed  on  the  MC68000 
terminal  as  they  arrive. 

prompt  on  host  terminal:  ENTER  VERIFY ; -FNAME  OR  *  DONE  ON 

MC68000  TERMINAL 

user  input  on  MC68000  terminal:  VERIFY ; -FNAME  or  *  DONE 

*DONE  completes  the  transfer  process,  VERIFY ; =FNAME 
checks  the  S  records  again  and  displays  any  discrepencies  , 
will  cause  a  prompt  of  :  ENTER  VERIFY ; =FNAME  OR  *DONE  ON 
MC68000  TERMINAL  on  the  host  terminal  again. 

With  VMEbug  firmware  monitor: 

Use  LO;-FNAME  (load)  instead  of  RE;»FNAME. 


III.  TRANSFER  OF  S-RECORDS  USING  A  SINGLE  TERMINAL 


If  the  transfer  program  is  taskbuilt  with  logical  unit 
numbers  1  and  5  being  assigned  to  the  MC68000,  transfer  of  S 
records  can  be  done  without  using  a  terminal  on  the 

system. 


hos ! 
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user  input  on  the  MC68000  terminal: 

*HEL  (account  number) 
♦(password ) 

♦RUN  TRANSFER 
RE ; *FNAME  or  RE ; X=  FNAME 
VERIFY ; *>  FNAME  or  *  DONE 
(if  previous  command  was  verify, 
now  type  *DONE) 

♦BYE 


With  VMEbug  firmware  monitor: 

Use  LO ; “FNAME  instead  of  RE ; = FNAME 


IV.  RUNNING  PROGRAMS  ON  THE  MC68000 
With  MAXbug  firmware  monitor. 

After  the  S  records  have  been  sent  to  the  MC68000,  the 
program  can  be  run  with  the  following  commands: 


user  input  on  MC68000  terminal:  PC  xxxx  ,  where  xxxx  is  the 
program's  starting  address  in  hex.  (Same  as  the  program 
storage  location  on  page  2) 

G  TILL  yyyy  ,  where  yyyy 
is  the  address  of  the  last  assembler  instruction,  this  can  be 
obtained  from  the  list  file„ 


(for  more  details  concerning  running  programs  on  the  MC68000, 


consult : 


Motorola  MC68000  DESIGN  MODULE  USER'S  GUIDE 


[ MEX68KDM( D3 ) ]  (MAXbug  firmware)  or  VMEbug  DEBUGGING  PACKAGES 
USERS  MANUAL  [ MVMEBUG/ D2 ]  .  ) 


With  VMEbug  firmware  monitor. 

Use  .PC  instead  of  PC,  GT  instead  of  G  TILL. 
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THE  ASSEMBLER  LODE  FILE 

Programs  in  MC68000  assembly  language  must  be  contained  in 
a  file  of  100  lines  or  less  on  the  host  system.  Long  programs  can 
be  broken  into  parts  and  put  into  memory  in  the  proper  order, 
remembering  that  jumps  to  labels  in  different  sections  will 
have  to  be  modified. 

The  assembler  code  file  is  made  up  of  4  distinct  fields. 
Each  field  starts  in  a  column  which  is  unique  to  the  field. 
The  four  fields  are  LABEL,  OPERAT,  ADRES1,  ADRES2  and  have  the 
following  functions: 

LABEL  :  columns  1-5,  can  be  used  to  label  lines, 
constants,  or  provide  jump-to  points  in  the  program. 

OPERAT  :  columns  20-25,  contains  the  -  assembler 

operation  or  directive. 

ADRES1  :  columns  40-48,  contains  the  source  address  or 
immediate  data. 

ADRES2  :  columns  50-58,  contains  the  destination 

address . 


EXAMPLE  FILE: 


ABSO 

E0RIW 

#SFFFF 

Da 

SWAP 

00 

E0RJW 

#SFFFF 

00 

SWAP 

D0 

A001L 

#1 

D0 

POSTIV 

A001L 

00 

D 1 

SUB1W 

#1 

D2 

CMP  I W 

*0 

D2 

SGT 

( VAR  I A  T 

0IVU 

*1 

D 1 

MULU 

*100 

D 1 

DIVU 

S7F02 

D 1 

MOVEW 

01 

S7F08 

MOVEAW 

S7EFC 

A0 

MOVEW 

01 

•  A0 

A0DQW 

#2 

S7EFC 

CMPIW 

#$7400 

S7EFC 

BEQ 

(STOP 

MOVEW 

#0 

S7F00 

RTS 

STOP 

STOP 

END 

ADDRESSING  MODES: 


The  MC68CRX  cross-assembler  supports  nine  of  the  twelve 
addressing  modes  available  on  the  MC68000.  The  user  specifies 
which  mode  is  being  used  by  the  first  one  or  two  characters  in 
the  source  (ADRES1)  and  destination  (ADRES2)  fields. 


ADDRESSING  MODE 

assembler  code  file 
source/dest.  field 

...  f 

Motorola 

RTL  notation 

Data  register  direct 

!  Dn 

» 

| 

Dn 

Address  register  direct 

!  An 

J 

I 

An 

Address  register  indirect 

!  @An 

! 

i 

@An 

Postincrement  register  indirect 

1  +An 

! 

i 

An+ 

Predecrement  register  Indirect 

!  -An 

f 

»•  f 

An- 

Register  indirect  with  integer 

1  ZIIIIIAn  or 

\ 

An(d  ) 

displacement 

!  Z-IIIIIAn 

! 

i 

Register  indirect  with  hex 
displacement 

!  Z$ HHHH An 
! 

! 

! 

_ ! 

An  (  d  ) 

Program  counter  relative  with 

!  PCIIIII  or 

! 

PC(d) 

integer  displacement 

!  PC-IIIII 

! 

••  t 

Program  counter  relative  with 

!  PC$ HHHH 

! 

PC(d) 

hex  displacement 

! 

! 

f 

Immediate  integer 

!  #1  or  #11. ..#11111 

f 

t 

#xxxx 

Immediate  hex 

!  #  $HHHH 

! 

...  i 

#xxxx 

Absolute  short 

!  $  HHHH  or  (label 

i 

XXX  .  U 

NOTES:  n  -  register  number 

IIIII  -  5  place  integer 
HHHH  «  4  place  hex 


) 
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ADDRESSING  MODE  DETAILS: 


Data  Register  Direct  -  Dn 

The  operand  is  stored  in  data  register  n, 


Address  Register  Direct  -@An 

The  operand  is  stored  in  address  register  n 


Address  Register  Indirect  -  An 

The  op.erand  is  stored  in  the  memory  location  which  is 
stored  in  address  register  n. 


Postincrement  Register  Indirect  -  +An 

The  operand  is  stored  in  the  memory  location  which  is 
stored  in  address  register  n.  After  the  instruction  is 
executed,  the  location  stored  in  An  is  incremented  by  1,2,  or 
4,  depending  on  the  operation  data  size. 


Predecrement  Register  Indirect  -  -An 

Same  as  Postincrement  register  indirect,  except  that  the 
location  stored  in  An  is  decremented  by  1,2,  or  4,  before  the 
operation  is  executed. 


Register  Indirect  With  Displacement  -  ^(displacement ) An 

The  operand  is  stored  in  the  location  stored  in  An  plus 
the  displacement. 


Program  Counter  Relative  With  Displacement  -  PC(displacement ) 

The  location  of  the  operand  is  the  sum  of  the  program 
counter  and  the  displacement. 
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Immediate  -  #(data) 

The  operand  is  '(data)',  either  hex  or  integer. 

Absolute  Short  -  $(location)  or  (label 

The  operand  is  stored  in  memory  location  '(location) 
the  location  associated  with  'label'. 


NON-ASSEMBLY  LANGUAGE  COMMANDS:  DIRECTIVES 


Since  Che  user  specifies  Che  memory  locacions  where  daca 
and  program  scorage  are  Co  begin,  Che  need  for  an  origin  (ORG) 
command  is  eliminaCed.  However,  some  useful  daca  scorage 
direcCives  are  supporced  by  Che  assembler.  These  include  DC, 
DS  and  EQU  which  may  be  before,  afCer  or  buried  wichin  che 
assembler  source  file  and  will  have  no  effecC  on  che  program 
scorage . 


DIRECTIVE:  DC  -  define  conscanc 

LABEL  OPERAT  ADRES1 


field 

LABEL 

OPERAT 

[label] 

DCL 

(as  would 

appear  in 

[ label  ] 

DCV 

assembly  code 

file) 

[label] 

DCB 

[-] cons  Cant 

( [-]conscanc)('characCer') 
(consCanC)( 'character') 


NOTE:  [  ]  -  enclosed  is  optional 

(  )  -  one  of  che  enclosed  types  must  be 
used 


Stores  che  value  in  ADRES1  field  in  the  next  available 
data  scorage  location.  Automatically  increments  data  count  to 
assure  word  or  long  word  daca  begins  on  an  even  memory 
location.  Note  that  signed  data  is  not  allowed  for  DCB  (byte 
scorage).  Daca  counter  incremented  by  2  for  DCW  (word 
scorage),  4  for  DCL  (long  word  storage),  1  for  DCB. 


CALL  STATEMENT  IN  MAIN  PROGRAM: 

CALL  DC(LABEL,  OPERAT,  ADRES1,  DCOUNT,  NCK) 


DIRECTIVE:  EQU  -  equate 


field 


LABEL 


OPERAT 


ADRES1 


[label]  EQU 


$HHHH 


field 


Equates  label  with  memory  location  shown  in  ADRES1  field 
Adds  nothing  to  memory. 


CALL  STATEMENT  IN  MAIN  PROGRAM: 


CALL  EQU( LABEL,  ADRES1,  NCR) 


DIRECTIVE:  DS  -  define  storage  space 


LABEL 


OPERAT 


ADRES1 


[label]  DSL 
[label]  DSW 
[label]  DSB 


Keeps  space  open  for  data  storage.  Four  bytes  for  DSI 
two  bytes  for  DSW,  one  byte  for  DSB. 


CALL  STATEMENT  IN  MAIN  PROGRAM: 

CALL  DS( LABEL,  OPERAT,  DCOUNT,  NCK) 
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ASSEMBLER  OPERATIONS 


field 


OPERATION:  ADD  -  add  binary.  Adds  source  (ADRES1)  t< 

destination  (ADRES2)  and  stores  in  destination. 


LABEL 

OPERAT 

ADRESl 

AD RES 2 

[  label ] 

ADD  I(B)(W)(L) 

( source ) 

D(n) 

[label] 

ADD2(B)(W)(L) 

D(n) 

(destination) 

ADD  IB  - 

Data 

register  is 

destination  - 

byte  data 

W  - 

•« 

If  II 

ft  _ 

word  data 

L  - 

•1 

If  It 

It  „ 

long  word  data 

ADD2B  - 

Data 

register  is 

source  -  byte 

data 

W  - 

i« 

it  ii 

"  -  word 

data 

L  - 

it 

it  it 

"  -  long 

word  data 

ADDRESSING  MODES  SUPPORTED: 
ADD  1 


ADD2 


Source  -  all  supported  Source  -  data  register  direct 

Destination  -  data  register  direct  Destination  -  all  except: 

address  register  indirect 
immediate 

PC  relative  with  disp. 


CALL  STATEMENT  IN  MAIN  PROGRAM: 

CALL  ANDADD( LABEL ,  OPERAT,  AD RES  1 ,  ADRES2,  PCOUNT,  NWORDS 
HEXM,  BIN1,  BIN2) 


Subtract  source  (ADRES1)  from  destination 
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OPERATION:  SUB  - 

(ADRES2)  and  stores  result  in  destination. 


eld  LABEL  OPERAT  ADRES1  ADRES2 

[label]  SUB1(B)(W)(L)  (source)  D(n) 

[label]  SUB2(B)(W)(L)  D(n)  (destination) 

register  destination  -  byte,  data 

"  "  -  word  data 

”  ”  -  long  word  data 


SUB2B 

W 

L 


-  data  register  source  -  byte  data 

-  "  "  "  -  word  data 


-  long  word  data 


SUBIB  -  data 
W  -  " 

L  - 


ADDRESSING  MODES  SUPPORTED: 

SUB1  SUB2 


source  -  all  source  -  data  register  direct 

destination  -  data  register  direct  destination  -  all  except: 

data  register  direct 
address 

PC  relative  with  disp. 
immediate 


CALL  STATEMENT  IN  MAIN  PROGRAM: 


same  as  ADD 


OPERATION:  AND 

(ADRES1)  and 
destination. 


-  Logical  AND  bit  by 
destination  (ADRES2), 


bit  between  source 
result  stored  in 


LABEL 

OPERAT 

ADRES1 

ADRES2 

[label] 

AND1 (B)(W)(L) 

( source ) 

D(  n ) 

[ label  ] 

AND2 ( B ) ( W ) ( L) 

D(n) 

(desti 

AND1B  - 

Data  register  desi 

tination  - 

byte 

data 

W  - 

II  II 

II  m 

word 

data 

L  - 

II  It 

•1  ^ 

long 

word 

AND2B 

W 

L 


Data  register  source 

I*  II  II 

It  II  II 


byte  data 
word  data 
long  word  data 


ADDRESSING  MODES  SUPPORTED: 
AND1 


AND2 


Source  -  all  except: 

address  register  direct 
Destination  -  data  register  direct 


Source  -  data  register  direct 
Destination  -  all  except: 
address  register  direct 
iaaidiate 

PC  relative  with  disp. 


CALL  STATEMENT  IN  MAIN  PROGRAM: 

CALL  ANDADD( LABEL ,  OPERAT,  ADRES1,  ADRES2,  PCOUNT,  NWORDS, 
HEXM,  BIN1  ,  BIN2) 


OPERATION:  ORR  -  Inclusive  OR  bit  by  bit  between  source 

(ADRES1)  and  destination  ( ADRES2 ) ,  stored  in  destination. 


£ 

ft 


K: 


P 


A 


field 


LABEL 

OPERAT 

ADRES1 

ADRES2 

[label] 

0RR1 (B)(W)(L) 

(source ) 

D(n) 

[label] 

0RR2 (B)(W)(L) 

D(n) 

(destination) 

ORR1B  - 

Data  register  destination  -  byte 

data 

W  - 

tl  *» 

”  -  word 

data 

L  - 

It  » 

"  -  long 

word  data 

ORR2B  -  Data  register  source  -  byte  data 
y  -  "  "  "  -  word  data 

L  -  "  "  "  long  word  data 

For  addressing  mode  details  see  AND. 

CALL  STATEMENT  ,  same  as  AND. 


OPERATION:  MOVE  -  Move  data  from  source  ( AD RES  1 )  t 

destination  (ADRES2). 


LABEL 


OPERAT 


ADRES1 


[label]  MOVE( B ) ( W ) ( L)  (source) 

(specifies  data 
size ) 


ADDRESSING  MODES  SUPPORTED: 


ADRES2 

(destination) 
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source  -  all  except:  PC  relative  with  displacement 


destination  -  all  except:  address  register  direct 

immediate 

PC  relative  with  disp. 


CALL  STATEMENT  IN  MAIN  PROGRAM: 

CALL  MOVE( LABEL ,  OPERAT,  ADRES1,  ADRES2,  PCOUNT,  NWORDS, 
HEXM,  B IN  1 ,  BIN2,  BIN3) 


OPERATION:  CMP  -  Subtract  the  source  (ADRES1)  operand  from  the 

destination  (ADRES2)  operand  and  set  the  condition  codes 
according  to  result.  Niether  operand  is  changed. 

field  LABEL  OPERAND  ADRES1  ADRES2 

[label]  CMP(B)(W)(L)  (source)  D(n) 

CMPB  -  byte  data 
W  -  word  data 
L  -  long  word  data 

ADDRESSING  MODES  SUPPORTED: 

Source  -  All 

Destination  -  data  register  direct 

CALL  STATEMENT  IN  MAIN  PROGRAM: 

CALL  CMP( OPERAT) 

CALL  ANDADD( . . . ) 
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OPERATION:  EOR  -  Exclusive  OR  logical.  Performs  an  exclusive 
or,  bit  by  bit  between  the  source  (ADRES1)  and  destination 
(ADRES2),  and  stores  the  result  in  the  destination  operand. 


field  LABEL  OPERAT  ADRES1  ADRES2 


[label]  EOR(B)(W)(L)  D(n)  (destination) 

(specifies  data 
size ) 


DESTINATION  ADDRESSING  MODES  ALLOWED: 
all  except: 

address  register  direct 

PC  relative  with  displacement 

immediate 


OPERATION:  ASL,  ASR  -  Arithmetic  shift  left,  right. 
Arithmetically  shifts  contents  of  register  or  memory  location 
by  a  specified  number  of  bits. 


LABEL 

OPERAT 

ADRES1 

ADRES2 

[label] 

ASLD( B ) ( W) ( L) 

D(n) 

D(m  ) 

[label] 

ASRD(B)(W)(L) 
(shifts 
contents  of 
destination ) 

D(n) 

(contains 
number  of  bit 
shifts) 

D(m) 

(data  register 
to  be  shifted) 

[label] 

ASLM 

(address ) 

[label] 

ASRM 

(shifts  data 
in  memory  one 
bit) 

( address ) 

(address  of  data 
to  be  shifted) 
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ADDRESSING  SUPPORTED: 

ASLD ,  ASRD  :  as  shown  above 


ASLM,  ASRM  :  address  register  indirect 

post  increment  register  indirect 
predecrement  "  " 

register  indirect  with  displacement 
absolute  short 


CALL  STATEMENT  IN  MAIN  PROGRAM: 

CALL  AS ( LABEL ,  OPERAT,  ADRES1,  ADRES2,  PCOUNT,  NWORDS, 
HEXM,  BIN1 ,  BIN2) 


OPERATION:  LSL,LSR  -  Same  as  ASL,  ASR,  except  LSR  places  a 
zero  in  the  most  significant  bit  of  the  operand,  where  ASR 
keeps  it  intact. 


(See  ASL,  ASR  for  details  on  addressing  and  format  of 
operation. ) 


OPERATION:  ROL,  ROR  -  Rotates  data  to  the  left  or  right  by  a 

specified  number  of  bits. 


field 


LABEL 


OPERAT 


ADRES1 


ADRES2 


(see  ASL,  ASR) 


[label]  ROLM 
[label]  RORM 


(address ) 
(address ) 


ADDRESSING  MODES  SUPPORTED: 
same  as  ASL,  ASD 


CALL  STATEMENT  IN  MAIN  PROGRAM: 


CALL  AS( LABEL ,  OPERAT,  ADRES1,  ADRES2 ,  PCOUNT,  HEXM, 
BIN1,  BIN2) 


OPERATION:  Bcc  -  Conditional  branch.  cc  is  condition  code. 
If  condition  is  met,  control  is  transferred  to  location 
specified  by  ADRES1 . 


LABEL 


OPERAT 


ADRES1 


[label] 


B(cc) 


(location) 


\DDRESSING  MODES  SUPPORTED: 

program  counter  relative  with  displacement 
absolute  short 


(if  PC  relative  with  disp.  is  used  the  displacement 

should  be  decreased  by  two  if  the  desired  displacement 
is  counted  from  the  location  of  the  Bcc  instruction.) 


CONDITION  CODES: 


1  code 

!  condition 

!  HI 

!  high 

1  LS 

!low  or  same 
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wag qgqwaswwig 


cc 


carry  clear 
noc  equal 


NE 


CS 


EQ 

VC 


VS 


PL 


carry  set 


equal 


overflow 


overflow 


plus 


clear 


set 


MI 


GE 


LT 


GT 


LE 


RA 


SR 


minus 


greater  or  equal 


less  than 


greater  than 


less  or  equal 


branch  always 


branch  to  subroutine 


MOTE  ON  USING  Bcc  WITH  CMP:  If  Bcc  is  used  after  a  CMP 
type  instruction,  the  relation  tested  is: 

DESTINATION  condition  SOURCE 

Where  destination  and  source  are  from  the  CMP  instruction 
line . 


OPERATION :NEG , NEX  -  Negate,  negate  with  extend.  NEg  subtracts 
the  contents  of  source  (ADRES1)  operand  from  zero  using  two's 
complement  arithmetic.  NEX  subtracts  the  source  operand  and 
the  value  of  the  extend  flag  from  zero.  Results  are  stored  in 
source  (ADRES1). 


-  20  - 


r  T  .  *~d  »  ;>  ,T-  r.  ■  .  J 


& 


52 

ft? 

»  .  * 


i 


IS 


I'l 


NV 


K 


r< 


field 


field 


LABEL 


OPERAT 


ADRES1 


[ label  ] 
[label] 


NEG(  B  )  (  W  )  (  L) 
NEX(B)(L)(W) 


( source ) 
(source ) 


(specifies  data 
size ) 


SOURCE  ADDRESSING  MODES  SUPPORTED: 


all  except: 

address  register  direct 

PC  relative  with  displacement 

Immediate 


OPERATION:  ADDQ  -  Add  quick.  Adds  immediate  data  of  1-8  to 
the  destination  operand  and  stores  result  in  the  destination. 
Immediate  data  is  in  ADRES1  field. 


LABEL 


OPERAT 


ADRES1 


AD RES 2 


[label]  ADDQ(B)(W)(L)  #(data) 


(destination) 


(specifies  data 
size  ) 


ADDRESSING  MODES  SUPPORTED  FOR  DESTINATION: 


all  except: 

PC  relative  with  displacement 
immediate 


CALL  STATEMENT  IN  MAIN  PROGRAM: 
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CALL  QADD( LABEL ,  OPERAT,  ADRES1,  ADRES2,  PCOUNT, 
NWORDS,  HEXM,  BIN1,  BIN2) 


ADDRESS  REGISTER  DIRECT  ADDRESSING  OPERATIONS:  Perform  same 
operations  as  MOVE,  ADD,  and  SUB,  with  the  destination  (ADRES2) 
being  an  address  register  addressed  directly. 


field 

LABEL 

OPERAT 

ADRES1 

ADRES2 

[label] 

MOVEA( W ) ( L) 

( source ) 

A(n) 

[label] 

ADDA(W) ( L) 

(source ) 

A(n  ) 

[label] 

SUBA(W) ( L) 

( source ) 

A(n  ) 

(note  byte 

data  is  not  allowed) 


SOURCE  ADDRESSING  MODES  SUPPORTED: 

All 

WITH  SIZE  SPEC  'L' : 

all  except  immediate 

CALL  STATEMENT  IN  MAIN  PROGRAM: 

CALL  OPTA( LABEL ,  OPERAT,  AD RES  1 ,  ADRES2,  PCOUNT, 
NWORDS,  HEXM,  BIN1,  BIN2) 


field 


IMMEDIATE  OPERATIONS:  ANDI,  ORRI,  EORI,  SUBI,  CMPI,  use 

immediate  data  as  the  source  operand. 


LABEL  OPERAT  ADRES1  ADRES2 


[label]  ANDI(B)(W)  #[$](data)  (destination) 

"  ORRI(  B )  ( W )  '*  " 

"  EORI ( B ) ( W )  "  ” 

"  SUBI(B)(W)  "  ” 

"  CMPI( B ) ( W)  "  " 

(specifies  size 
spec . ) 


Perform  same  functions  as  AND,  ORR,  EOR,  SUB,  CMP. 
Note  that  long  word  data  cannot  be  used. 


ADDRESSING  MODES  SUPPORTED: 

source  -  immediate 
destination  -  all  except: 

address  register  direct 

PC  relative  with  displacement 

immediate 


CALL  STATEMENT  IN  MAIN  PROGRAM: 

CALL  IMME( LABEL ,  OPERAT,  ADRES1,  ADRES2,  PCOUNT, 
NWORDS ,  HEXM,  BIN1,  BIN2,  BIN3) 


OPERATION:  JMP  -  Unconditional  jump  to  specified  memory 

address . 
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field 


LABEL 


OPERAT 


ADRES1 


field 


[label]  JMP  (address) 

Previous  value  of  program  counter  is  lost. 


ADDRESSING  MODES  SUPPORTED: 

all  except  :  data  register  direct 

address  register  direct 
postincrement  register  indirect 
predecrement  "  " 

immediate  data 


OPERATION:  JSR  -  Jump  to  subroutine  and  save  old  value  of 

program  counter  on  system  stack. 


LABEL  OPERAT  ADRES1 


[label]  JSR 


(address) 


ADDRESSING  MODES  SUPPORTED: 
same  as  JMP 


CALL  STATEMENT  IN  MAIN  PROGRAM  (both  JMP  and  JSR): 

CALL  JUMP( LABELt  OPERAT,  ADRES1,  ADRES2 ,  PCOUNT, 
NVORDS ,  HEXM,  BIN1 ,  BIN2) 


OPERATION:  RTS  -  Return  from  subroutine  to  location  stored 
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on  stack 


field  LABEL  OPERAT 

[label]  RTS 

Will  not  affect  status  flags. 


OPERATION:  MUL  -  Signed  or  unsigned  multiply.  Multiplies  two 
16-bit  operands  and  yields  a  32-bit  result  which  is  stored  in 
the  data  register  destination.  MULU  (unsigned)  uses  unsigned 
binary  arithmetic,  and  MULS  uses  two's  complement  signed  binary 
arithmetic . 


field 

LABEL 

OPERAT 

ADRES1 

ADRES2 

[label] 

MULS 

( source ) 

D(n) 

[label] 

MULU 

(source ) 

D(n) 

ADDRESSING  MODES  SUPPORTED: 

source  -  all  except: 

address  register  direct 

destination  -  data  register  direct 
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CALL  STATEMENT  IN  MAIN  PROGRAM: 


CALL  MULDIV( LABEL ,  OPERAT,  ADRES1,  ADRES2 ,  PCOUNT, 
NWORDS ,  HEXM,  BIN1,  BIN2) 


OPERATION: 

descination 


Divides 
stored  in 


DIV  -  Signed  or  unsigned  divide. 

(ADRES2)  by  source  (ADRES1),  result 
destination  with  the  quotient  in  the  least  significant  word  and 
the  remainder  in  the  most  significant  word.  DIVU  (unsigned) 
uses  binary  arithmetic  and  DIVS  uses  signed  two's  complement 
arithmetic . 


field 

LABEL 

OPERAT 

ADRES1 

ADRES2 

[label] 

DIVS 

(source) 

D(n) 

[label] 

DIVU 

(source) 

D(n) 

ADDRESSING  MODES  SUPPORTED: 


source  -  all  except: 

address  register  direct 


destination  -  data  register  direct 


CALL  STATEMENT  IN  MAIN  PROGRAM: 
same  as  MUL 
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OPERATION:  NOP  -  No  operation.  Increments  program  counter. 


field  LABEL  OPERAT 

[label]  NOP 

CALL  STATEMENT  IN  MAIN  PROGRAM: 

l 

CALL  NOP( LABEL ,  OPERAT,  PCOUNT,  NWORDS,  HEXM ,  BIN1) 

I 


OPERATION:  STOP  -  Loads  next  memory  word  into  status  register 

and  stops  processor. 

field  LABEL  OPERAT 

[label]  STOP 

!  CALL  STATEMENT  IN  MAIN  PROGRAM: 

I 

same  as  NOP 


I 


field 

i 


OPERATION:  SWAP  -  Swaps  data  register  halves. 
LABEL  OPERAT  ADRES1 


[ label  ] 


SWAP 


D(n) 


ONLY  ADDRESSING  IS  AS  SHOWN 


MC68CRX  FORTRAN  PROGRAM  SPECIFICS: 


Sections  of  the  MC68CRX  Main  Program 
(See  APPENDIX  A,  program  listing) 


INITIALIZATION  SECTION  -  Sets  up  the  program  and  data 
start  locations.  START  is  the  input  variable  which  is 
converted  to  PCOUNT,  the  program  counter. 


FILE  NAMING  AND  OPENING  SECTION  -  User  inputs  the  names  of 
all  files  to  be  manipulated  in  the  cross  assembly  process.  The 
list  file  is  opened  and  a  header  is  printed  in  that  file. 

READ  ASSEMBLY  LINE  SECTION  -  Opens  assembler  code  file  and 
.M68  file.  Reads  one  line  of  assembler  code  into  variables 
LABEL,  OPERAT,  AD RE SI ,  ADRES2. 

CALL  SECTION  -  Matches  OPERAT  to  a  string  and  calls  proper 
subroutine . 

PASS  CHECK  SECTION  -  Checks  variable  NSTOP  to  see  if  an 
END  has  been  encountered  in  the  assembly  code  file.  If  so, 
increment  NPASS  by  1 .  If  NPASS  -  3,  assembly  is  complete. 

WRITE  S-RECORD  SECTION  -  Converts  the  binary  instruction 
string  BIN1  to  hex  and  inserts  it  into  the  S-record  array.  If 
NWORDS  is  greater  than  one,  BIN2  and  BIN3  (if  used)  are  also 
converted  to  hex  and  inserted  into  the  S-record  array.  The  hex 
memory  location  HEXM  array  is  inserted  into  the  S-record  array. 


SUBROUTINES 


File 


Subrotine 


Function/Mnemonic 


MC68CRX. FTN 


Main  Program 


0PTSUB2 . FTN 


SUBDIR.FTN 


I 


ANDADD 

ADD , AND, ORR, CMP , SUB, EOR 

MOVE 

MOVE 

CMP 

CMP 

EOR 

EOR 

AS 

ASL,ASR,LSL,LSR,ROL,ROR 

Bcc 

Bcc 

QMOVE 

MOVEQ 

QAOD 

ADDQ 

IMME 

ADD I , ANDI , ORRI.EORI 

EQU 

EQU 

DS 

DS 

END 

END 

OPTA 

ADDA, SUBA , MOVEA 

NOP 

NOP, STOP 

JUMP 

JSR.JMP 

MULDIV 

MULU , MULS ,DIVU,DIVS 

NEC 

NEC , NEX 

UTLSUB . FTN  KSTRIN 


TCOMP 

i 


Separates  four  character 
string  into  a  4  element 
array,  rightmost  character 
becomes  the  first  element. 

Performs  a  two's  comp¬ 
lement  on  the  16  or  32 
array  sent  to  the  sub- 
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routine.  (Complements 
and  adds  1  with  carry) 


OCOMP 

Complements  all  bits  of 
array  sent. 

CKSUM 

Computes  the  checksum 
for  each  S  record  and 
adds  it  to  the  S  record 
array.  Also  generates 
list  f ile . 

LABTAB 

First  pass:  sets  up  table 
(two  parallel  arrays) 
of  labels  and  their  lo¬ 
cations. 

Second  pass:  returns  the 
location  of  a  label  name. 

LAB  AD 

Used  in  conjunction  with 
LABTAB  during  second  pass 
of  assembler. 

TEST 

BTST 

DCSUB.FTN 

DC 

DC 

SUBS  1 . FTN 

BINDIG 

Converts  a  16  element 
character  array  of  binary 
(l's  and  0's)  into  a  4 
byte  integer.  Element 

1  of  array  is  'ones' 
place . 

DIGHEX 

Integer  (4  byte)  to  four 
element  character  array. 

SUBS2.FTN 

HEXNUM 

Hex  array  to  4  byte 
integer  conversion, 

NUMB  IN 

4  byte  integer  to  16  or 

32  element  character 
array  of  binary  l's  and 
0's  . 

Returns  a  3  element 
character  array  when 
sent  a  single  character 
which  is  a  numeral  from 


SUBS3.FTN 


ADRLOC 


ADDING  MNEMONICS  TO  THE  MC68CRX  CROSS  ASSEMBLER: 


h\  ■ 


w 


The  MC68000  supports  over  sixty  instructions.  The  most 
commonly  used  mnemonics  are  assembled  by  the  MC68CRX  cross 
assembler.  However,  if  a  programming  situation  occurs  which 
requires  an  operation  not  currently  in  the  library  of  the 
MC68CRX  program,  a  subroutine  (the  operation  subroutine)  can  be 
added  to  assemble  the  instruction. 


The  operation  subroutine  must  contain  the  following: 


I'.V 

r.V 

t\V 

K?-* 

r* 

k- 

ft 

A* 

& 


NFASS,  the  variable  which  counts  the  number  of  passes  the 
assembler  has  made,  must  be  declared  as  COMMON/ BL0CK1 / NP ASS  at 
the  start  of  the  subroutine. 


Each  operation  subroutine  must  have  the  variables  PCOUNT, 
NWORDS,  and  HEXM  passed  to  it.  NWORDS  must  be  set  to  an 
integer  which  is  the  number  of  memory  words  the  instruction 
will  write  (1-3).  PCOUNT,  the  program  counter,  must  be 
incremented  by  two  for  each  memory  word,  preferably  just  prior 
to  the  return  staement.  After  the  COMMON  statement  and  type 
declarations,  the  following  lines  must  be  included. 


100 

150 


IF( NPASS . NE . 1 ) GO  TO  100 

CALL  LABTAB(LABEL, PCOUNT, NA) 
IF(ADRES1(  1:1). EQ . '  (  '  )  ADRES1-' $0000'< 
IF(ADRES2(l:l).EQ.'(')ADRES2-'$0000  5<: 
GO  TO  150 

CALL  LABAD(ADRES1 , ADRES2) 

CALL  DIGHEX( PCOUNT, HEXM) 


'[These  three  lines 
only  needed  if 
ADRES1 , ADRES2  were  sent 
to  the  subroutine^ 
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(PCOUNT  should  be  incremented  AFTER  these  lines) 


The  subroutine  should  generate  and  return  up  to  three 
words  of  binary  code  stored  in  16  element,  single  character 
arrays.  The  code  for  the  effective  address  fields  of  many 
instructions  can  be  easily  obtained  by  using  the  subroutine 
TAOR,  which  is  called  by: 

CALL  TADR( ADRES ,  MODE,  REG,  NUM,  TYPE,  FLG) 

ADRES  is  ADRES1  or  ADRES2  (this  is  the  only  variable  sent 
TO  the  subroutine) 

MODE  and  REG  are  3  element,  single  character  arrays 
containing  the  binary  code  for  the  effective  address 
field. 

MUM  is  a  4-byte  Integer  variable  which  contains  an  integer 
equivalent  to  the  value  of  the  16-bit  binary  extension 
word  used  by  some  addressing  modes.  If  NUM  is  to  be  used, 
the  integer  variable  FLG  will  be  set  to  1  by  TADR.  NUM 
can  be  converted  to  a  binary  word  array  by  using: 

CALL  NUMB IN( NUM,  BIN32,  BIN2,  NZ) 

(BIN32  is  a  32  element  array  not  used.  NZ  is  a  single 
character  variable  not  used) 

TYPE  is  a  single  character  variable  not  used. 
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Each  operation/mnemonic  subroutin 
SECTION  of  the  main  program  (MC68CR 
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C  MC68CRX 

C  MC68000  CROSS  ASSEMBLER  KEN  ROMANO#  IRAP#  JUNE  198/4 

C  COMMENTS  REFER  TO  SECTIONS  EXPLAINED  IN  MC68CRX  USERS  MANUAL 

C 

c 

COMMON/BLOCK 1/NP ASS 

COMMON/BLOKK2/LAHFL#OPERAT# ADRES1, ADRES2 
CHARACTER*6  LABEL#  OPER AT 
CHARACTERS  ADRES  1  #  ADRES2,  FOUT,  FLST 
CHARACTER* 1  BIN1 (16) # BIN2C16) # BINLC32) 

CHARACTER*  1  B I N3  £  1 6)  #  13 1 N4  ( 1 6 ) ,  LOC  (  3)  #  HEXM  (  4) 

CHARACTER*!  HEX2 ( 4 ) , HEX 3 C a) , HEX4 ( a) , SREC ( 30) 

CHARACTER* 15  FNAME 
CHARACTERS  START#  NSTOP#  OSTART 
INTEGERS  NUMBER#  DC  OUNT#PCQUNT#PCONT2#  DCONT  2 
INTEGER  NCK#  NWORDS 
C 

C  INITIALIZATION  SECTION 

C 

WRITE (5# 100) 

100  FORMAT! IX# 'INPUT  MEMORY  LOCATION  (HEX)  AT  WHICH  TO  BEGIN  PROGRAM 
&  STORAGE  IN  MC68000  RAM  ( <8000# >06FF) * ) 

READ(5# 111) START 
111  FORMAT ( A4) 

WRITEC5# 150) 

150  F0RMAT(1X, 'INPUT  MEMORY  LOCATION  (HEX)  AT  WHICH  TO  BEGIN  DATA 
&  STORAGE  IN  MC68000  RAM') 

READ (5#  222) DSTART 
222  FORMAT ( A4) 

DO  152  J»l,4 

HEXM (• 1* J+5) ®ST  ART ( J i J) 

HEX4<«1*J+5)sDSTART(J:J) 

152  CONTINUE 

CALL  HEXNUM( HEXM# PC OU NT ) 

PCONT2**P  COUNT 

CALL  HEXNUM( HEX4, DCOUNT ) 

DC0NT2n0C0UNT 

C 

C  FILE  NAMING  AND  OPENING  SECTION' 

C 

WRITE(5»  200) 

200  FORMATt IX, 'INPUT  NAME  OF  ASSEMBLER  CODE  FILE') 

READ(5# 225) FNAME 
225  FORMAT(AIS) 

WRITE(5#  300) 

300  FORMATdX, 'INPUT  NAME  OF  OUTPUT  (S  RECORD)  FILE  TO  BE 
&  CREATED  I  XXXXX.M68') 

READ(5# 230) FOUT 
230  FORMAT ( A9) 

WRITE(5#310) 

310  FORMATdX, 'INPUT  NAME  OF  LIST  FILE  TO  BE  CREATED?  XXXXX,LST') 
READ (5#  240) FLST 
240  FORMAT ( A9) 

OPEN (UNIT® U.FILEsFLST, ST ATUS»« NEW*) 

WRITE ( 1 1 #  312) 

312  FORMATdX,  'LABEL'#  T9,  ' OPER AT ', T 17# ' ADRES 1 ♦# T28 , 'ADRES2' # 

ST40# 'LOCATION'# T50# 'HEX  DATA') 

WR ITE ( 11,314) 

314  FORMAT ( 2X ) 

C 

C  INITIALIZE  ASSEMBLER 

C 

NP ASS*  1  A1 


noon  o  o  r> 


L ALL  LABI  Ab(  *A5  I'AK  r*#KCUUNT,  1} 

READ  ASSEMBLY  LINE  SECTION 

350  0PEN(UNIT*3,FILE*F NAME, READONLY, STATUS** OLD*) 
0PEN(UNIT*4,FILE=F0UT, STATUS** NEW*) 

REWIND  3 
REWIND  4 
NSTOP**GO» 

PC0UNT*PC0NT2 
DC0UNT*DC0NT2 
WR ITE ( 4, 360) 

360  FORMAT (IX, *S0* ) 

400  READ (3, 440) LABEL, OPER AT, AORES 1 , ADRES2 

440  FORMAT (Tl, A6, T20, A6, T40, A9( T50,A9) 

NCK*0 

DO  441  KK* 1 , 30 
SREC (KK) s*  e 

441  CONTINUE 

CALL  SECTION 

IDENTIFY  MNEMONIC  AND  CALL  PROPER  SUBROUTNES 

IF(0PERAT(1:4),NE,*SUBA*)G0  TO  371 

370  CALL  OPTA(LABEL,OPERAT, ADHES1, ADRES2, PCOUNT, NWORDS, 
SHEXM,BIN1,BIN2) 

GO  TO  498 

371  IF(0PERAT(1:4).NE,*ADDA*)G0  TO  372 

GO  TO  370 

372  IF(0PERAT(l:5),NE,*M0VEA«)G0  TO  373 

60  TO  370 

373  IF(0PERAT(ls5).NE,«M0VEfl')G0  TO  374 

CALL  AMOVE (LABEL, 0PERAT,ADRES1,ADRES2, PCOUNT, NWORDS, 
SHEXM, BIN1 ) 

GO  TO  498 

374  IF(0PERAT(l:4),NE,*AD0Q*)G0  TO  375 

CALL  QADD (LABEL, 0PERAT,ADRES1,ADRES2, PCOUNT, NWORDS, 
SHEXM, 8IN1,BIN2) 

GO  TO  498 

375  IF(0PERAT(H3).NE,'N0P*)G0  TO  377 

376  CALL  NOP(LABEL,OPEHAT, PCOUNT, NWORDS, HEXM, BIND 

GO  TO  498 

377  IF(0PERAT(H4).NE,*ST0P«)G0  TO  378 

GO  TO  376 

378  IF(0PERAT(1:3).EG,*JSR»)G0  TO  380 
IF (OPER AT (li3),EQ,*RTS*)G0  TO  380 
IF(0PERAT(1|3).NE,«JMP«)G0  TO  381 

380  CALL  JUMP(LABEL,0PERAT,ADRES1, PCOUNT, NWORDS, 

SHEXM, 3IN1,BIN2) 

GO  TO  498 

381  IF(0PERAT(li3).EQ,«MUL*)G0  TO  382 
IF ( OPER AT (1j3),NE,*DIV*)G0  TO  383 

382  CALL  MULDIV(LABEL,0PERAT,ADRES1, ADRES2, PCOUNT, 

S NWORDS, HE XM,BIN1,BIN2) 

GO  TO  498 

383  IF(OPERAT(l:3).EQ,'NEG«)GO  TO  384 
IF(0PERAT(li3),NE,*NEX«)G0  TO  385 

384  CALL  NEG(LABEL,OPERAT, A0RES1, PCOUNT, NWORDS, HEXM, 
SBIN1, BIN2) 

GO  TO  498 

385  IF(0PERAT(1 j 4) . NE, * SWAP* ) GO  TO  386 

CALL  SWAP (LABEL, OPERAT, ADRES 1 , PCOUNT, NWORDS, HEXM, 
SBIN1 ) 

GO  TO  498 

386  IF(0PERAT(1|4).NE,*E0RI*)G0  TO  387 

GO  TO  409  A2 


■WAV. 


387  IP  iOfjWT  ^  fa  A  BELi^P  EH  A  T  WDPES  1 ,  ADRES2, PCOUNT  .  NWORDS, 

SHEXM,0IN1»BIN2,BIN3) 

SO  TO  498 

399  IF(0PERATU|4).NE.#ADDI')G0  TO  401 

409  CALL  IMME(LABEL#0PERAT,ADRESl,ADRES2,PC0UNT,NW0RDS, 

$HEXM,B1N1,BIN2,BIN3) 

GO  TO  498 

401  IF(0PERAT(ls4).NE.f  ANDIdGO  TO  402 

GO  TO  409 

402  IF (OPERAT (1  * 4} . NE »  *ORRI ') GO  TO  403 

GO  TO  409 

403  IF(OP£RAT(H33.N£.'EORMGO  TO  404 
CALL  £0R ( OPER AT ) 

CALL  AND ADD (LABEL#  OPER AT#  ADRES 1 , A0RES2, PCOUNT, NWORDS , 
SHEXM,BIN1,BIN2) 

GO  TO  498 

404  IF(0PERAT(1»4),NE,*SUBI')G0  TO  405 

GO  TO  409 

405  IFCOPERATdjAJ.NE.'CMPI'IGO  TO  410 

GO  TO  409 

410  IF(OPERAT(l2)«NE’,  #DC*)GO  TO  411 

CALL  DC (LABEL# OPER AT, ACRES  1 , DCOUNT# NCK) 

GO  TO  498 

411  IFTOPERAT.NE.'END'JGO  TO  412 

CALL  EN0(PC0NT2#NST0P) 

GO  TO  498 

412  IF(0PERAT(l2),NE‘.'0S»)G0  TO  413 

CALL  OS ( LABEL#  OPER AT#  DCOUNT #  NCK) 

GO  TO  498 

413  IFtOPERAT.NE.'EQU'JGO  TO  414 

CALL  £GU< LABEL,  AORESliNCK) 

GO  TO  498 

414  IFTOPERATdtSJ.NE.'AND'JGQ  TO  415 

CALL  ANDADD(LABEL#0PERAT#ADRES1#ADRES2#PC0UNT,NW0RDS»HEXM,BIN1, 

IBIN2) 

GO  TO  498 

415  IF(OPERAT(l 13) ,NE,'ADO*3GO  TO  416 

CALL  ANDADO(LABEL,OPERAT#ADRESl# AORES2, PCOUNT, NRORDS, HEXM.BIN 1# 

SBIN2) 

GO  TO  498 

416  Xc ALLE ANDAOD (LABEL# OPER AT?A0RES1,ADRES2, PCOUNT, NWORDS,HEXM, BIN  1, 

IBIN2) 

GO  TO  498 

417  IF ( OPERAT ( 1 13) » NE«  *CMP* J GO  TO  418 

CALL  CMP ( OPER AT ) 

CALL  ANDAOO( LABEL# OPER AT, ADRFS 1 , ADRES2, PCOUNT, NWORDS, HEXM, B INI, 
SBIN2) 

GO  TO  498 

418  IF(OP£RATdJ4),NE,*MOVE')GO  TO  419 

CALL  MOVE ( LABEL# OPERAT# ACRES 1,ADRES2# PCOUNT# NWORDS, HEXM, BIN  1, 

SBIN2#  BIN3) 

GO  TO  498 

419  IF(0PERATdl2).NE,#ASdG0  TO  420 

CALL  AS (LABEL# OPERAT, AORES 1 # A0RES2, PCOUNT# NWORDS, HEXM, 

$BIN1,BIN2) 

GO  TO  498 

420  IF(0PERAT(ll2).NE.«LS*)G0  TO  442 

CALL  AS (LABEL, OPERAT, ADRES1,ADRES2, PCOUNT, NWORDS, HEXM, 

SBIN1,BIN2) 

GO  TO  498 

442  IFCOPERATd  J 3) . NE , ' SUB « > GO  TO  452  -11MT  llwrtej(Ne 

CALL  AND ADD (LABEL# OPER AT, AORES 1,ADRES2, PCOUNT, NWORDS, 

SHEXM,BIN1,BIN2J 

GO  TO  498  A3 


k-"  O  O  -  *  •  •  O 


‘*'3d  if  (opmT<i.i\.fJ£-  'S'jAoi&Mt, 

CAUL  8CC (LABEL# OPEH AT, ADfcESt # PCOUNT, NWQRDS, HFXM, B IN  1 # HIN2) 
GO  TO  498 

496  WRITE(5#500)OPERAT 

500  F0RMAT(1X, "INVALID  COMMAND  !  *#A6,"  -EXECUTION  TERMINATED") 

STOP 

PASS  CHECK  SECTION 

*498  IF(NSTOP.NE, "STOP")GO  TO  510 

NPASSsNP ASS+ 1 
IF(NPASS,EQ,3)ST0P 
CLOSE  (UNITs3,STATUSs"KEEP«) 

CLOSE  (UNITs4#STATUS="DELETE") 

GO  TO  350 

HR ITE/NO  WRITE  CHECK 

*510  IF(NCK,EQ,l)GO  TO  400 

WRITE  S-RECORD  SECTION 

SREC ( 1 ) a  *S " 

SREC ( 2) ** 1  * 

CALL  BINDIGCBINl, NUMBER) 

CALL  D I GHEX (NUMBER# HEX2) 

DO  1000  Js 1 , 4 

SREC(J+8)aHEX2C-l*J+5) 

1000  CONTINUE 
IFCNWORDS.EQ, 1JGO  TO  1010 

CALL  BIND IGCBIN2#  NUMBER) 

CALL  DIGHEXt NUMBER, HE X3) 

DO  1001  Jal#4 

SREC(J+12)aHEX3C-l*J*5) 

1001  CONTINUE 
IF(NW0RDS.EQ,2)G0  TO  1010 

CALL  BINOIG(BIN3#  NUMBER) 

CALL  D I GHEX (NUMBER#  HEX4) 

DO  1002  Ja 1 , 4 

SREC(J*16)aHEX4(-l*J+5) 

1002  CONTINUE 

1010  DO  1003  Ja 1 , 4 

SREC( J+4)aHEXM(-l*J*5) 

1003  CONTINUE 
C 

C  COUNT  AND  CHEKSUM  SECTION 

C 

IF(NW0RDS,NE,3)G0  TO  1020 
SREC ( 3) a*0» 

SREC(4)a»9* 

CALL  CKSUM(SREC,3) 

GO  TO  1050 

1020  IF(NW0RDS)(NE#2)G0  TO  1030 

SREC(3)a"0" 

SREC ( 4) s'7* 

CALL  CKSIJM(SREC,2) 

GO  TO  1050 
1030  SREC ( 3) a" 0* 

SREC (4 ) **5" 

CALL  CKSUM(SREC,  1) 

C 

C  WRITE  S  RECORDS  TO  ,M6H  FILE 

1050  WRITE (4, 5900) ( SREC ( J) , Ja 1 , 30) 

5900  FORMAT (IX, 30A 1 ) 

GO  TO  400  A4 


C 


non 
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C  BINARY  TO  DECIMAL  CONVERSION 

SUBROUTINE  BINDIGIBINARY, NUMBER) 
CHARACTER*!  BINARY (16) 

INTEGER*4  NUMBER, K 
INTEGERS  MULT 
NUMBERsB 
DO  50  Ksl, 16 

IFCBlNARY<K),NE,M#)GO  TO  50 
MULT*2**(K-1) 
NUMBERsNUMBER+MULT 

50  CONTINUE 
RETURN 
END 


DECIMAL  TO  HEX  CONVERSION  SUBROUTINE 
SUBROUTINE  DIGHEX ( NUMBER, HEX) 
INTEGER*#  NUMBER 
CHARACTER*!  HEX(4) 

ANUMsFLOAT  J( NUMBER) 


DO  100  K=4, 

1  #  - 1 

DlVIDaANUM/(16,*< 

<(K- 

-D) 

NREMsHNT(DIVID) 

IF(NREM, 

GT , 15) GO 

TO 

999 

IF(NREM, 

NE.15)G0 

TO 

5 

HEX 

(K)sOF' 

GO 

TO  99 

5 

IF ( NREM, 

NE, 14) GO 

TO 

10 

HEX 

( K) a  *E* 

GO 

TO  99 

10 

IFINREM. 

NE, 13) GO 

TO 

15 

HEX 

(K)=*D# 

GO 

TO  99 

15 

IF ( NREM, 

NE, 12) GO 

TO 

20 

HEX 

(K)=*C* 

GO 

TO  90 

20 

IF( NREM, 

NE.llJGO 

TO 

25 

HEX 

(K) s*B* 

GO 

TO  99 

25 

IFCNREM. 

NE, 10) GO 

TO 

30 

HEX(K)s*A# 
GO  TO  99 


30  IF( NREM, NE«  9) GO  TO  35 

HEX(K)s*9# 

GO  TO  99 

35  IF(NREM,NE,8)G0  TO  40 

HEX(K)s"8* 

GO  TO  99 

40  IF ( NREM, NE , 7) GO  TO  45 

HEX(K)s»7* 

CO  TO  99 

45  IF(NREM.NE,6)G0  TO  50 

HEX ( K) s  <  6* 

GO  TO  99 

50  IF ( NREM, NE , 5) GO  TO  55 

HEX ( K) **5# 

GO  TO  99 

55  IF(NREM,NE,4)G0  TO  60 

HEX (K) **  4* 

GO  TO  99 

60  IF ( NREM, NE«  3) GO  TO  65 

HEX (K) «f 3* 


SO  TP  T? 

IFCNREM.NE,2)G0  TO  70 
HEX(K)r*2' 

GO  TO  99 

IF(NREM,NE, 1) GO  TO  75 
HEX (K) s* 1  * 

GO  TO  99 

IF  (  NREM, NE«  0) GO  TO  80 
HEX ( K)  =  *0* 


GO  TO  99 
WRITE(5,  111) 

FORMAT  (IX#  *  NOT  HF.X  ERROR  -  FATAL*) 
STOP 

REH=FLOATI (NREM) 

ANUMsANUM-REM*  U6a**(K«l)  ) 

CONTINUE 

RETURN 

WRITE(5,222) 

FORMAT (IX#  *OUT  OF  BOUNDS  IN  HEX  SUB,  - 
STOP 


FATAL*) 


c 

c 


I 

I 


5 

10 

15 


20 


25 


30 


35 

40 

45 

50 


J  '  55 

,  '  60 

65 

►  70 

i 

75 

>  80 

100 

I 

111 
200 


HEX  TO  DECIMAL  CONVERSION  SUBROUTINE 
SUBROUTINE  HEXNUM(HEX, NUMBER) 
CHARACTER* 1  HEX(4) 

INTEGERS  NUMBER, MULT, NOlG,K 

NUMBERsfl 

DO  200  Ksi,/| 

IF  CHEX  C  K3 ,NE,"F')GO  TO  5 
NDIGslS 
SO  TO  111 

IF(HEX(K),NE,*E*)G0  TO  12 
ND IGs  1 4 
GO  TO  111 

IF(HEX(K).NE,*D«)GO  TO  15 
NOIGs  1 3 
GO  TO  111 

IF(HEX(K),NE,'C«)GO  TO  20 
NDIGS12 
GO  TO  111 

IFCHEX(K) tNE,«B#)GO  TO  25 
NDIGsll 
GO  TO  111 

1F(HEX(K) ,NE, 'A')G0  TO  30 
NDIG=10 
GO  TO  111 

IF(HEX(K).NE,"9*)G0  TO  35 
NDIGs9 
GO  TO  111 

IF(HEX(K),NE, «8*)G0  TO  40 
NDIGsS 
GO  TO  111 

IF(HEX(K1,NE.«7«)G0  TO  45 
NDIGs7 
GO  TO  111 

IF(HEX(K),NE,*6')G0  TO  50 
NDIGS6 
GO  TO  111 

IF(HEX(K),NEf"5")G0  TO  55 
NOIGs5 
GO  TO  111 

IF(HEX(K) ,NE,"4')G0  TO  60 
NDIGs4 
GO  TO  111 

IFCHEX(K),NE,'3«)G0  TO  65 
NDIG=3 
GO  TO  111 

IF(HEX(K),NE,'2')G0  TO  70 
N0IG*2 
GO  TO  111 

IF(HEX(K).NE,M«)GO  TO  75 
NDIGsl 
GO  TO  111 

IF(HEX(K),NE,"0")GO  TO  80 
NDIGs0 
GO  TO  111 

WRITE15, 100) 

FORMAT! IX, "NOT  HEX  ERROR  -  FATAL") 

STOP 

MULT*( 16**(K-1) )*NDIG 

NUMBER sNUMBER* MULT 
CONTINUE 
RETURN 

END  A8 


DECIMAL  to  binary  subroutine 

SUBROUTINE  NUMBINt NUMBER# BIN32, BIN16, NFL AG) 

CHARACTER* 1  BIN32 ( 32) , BIN  1 6 ( 1 6) 

INTEGERS  NUMBER, N,NUM2 
NFLAGsa 
NUM2=NIJMBER 
DO  60  Ks 1 , 32 
BIN32(K) s*0' 

CONTINUE 
DO  70  K=l,16 
BIN16(K)=#0' 

CONTINUE 

DO  100  N=3 1 , 1,-1 

IF(NUMBER.LT.(2**(N-l)))GO  TO  100 
BIN32 ( N) *  *  1  * 

NUMBER=NUMBER-(2**(N-1J) 

CONTINUE 

DO  200  N=16, 1,-1 

IFCNUM2,LT,(2**(N-n))G0  TO  200 

BIN16(N)s#l<' 

NUM2sNUM2-(2**(N-l)) 

CONTINUE 

IF(NUM2,GT,0)NFLAG=1 

RETURN 


A  V  V  V  *> 
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ADRESS  LOCATION  SUBROUTINE 
SUBROUTINE  AORLOC ( NUM# LOC) 
CHARACTER* 1  NUM,LOC(3) 

DO  33  K= 1 #  3 
LOC(K)a'0* 

CONTINUE 

IFtNUM.NE. *0')GO  TO  5 
GO  TO  250 

IFCNUM.NE.M'JGO  TO  10 

Loccns't* 

GO  TO  250 

IF(NUM,NE.*2*)GO  TO  15 
L0C(2)*M* 

GO  TO  250 

IF<NUM.NE.*4')G0  TO  20 
LOC(3)3*l# 

GO  TO  250 

IFINUM.NE. *3')GO  TO  50 
LOC(l)s*t* 

LOC ( 2) s® 1  * 

GO  TO  250 

IFCNUM.NE.*5»)G0  TO  100 

LOCUJs't* 

L0CC3)s*l* 

GO  TO  250 

IF(NUM.NE,'6*)G0  TO  150 
L0C(2)**1* 

LOC (3) a* 1  * 

GO  TO  250 

IF(NUM,NE#*7*)GO  TO  200 
LOC ( 1 )  a*  1  * 

LOC (2) ** 1  * 

LOC (3) a* 1  * 

GO  TO  250 
WRITE(5#333)NUM 
FORMAT (lXfAli*  JS  NOT  A  V 
TERMINATED*) 

STOP 

RETURN 

END 


ADRESS  MODE  AND  LOCATION  SUBROUTINE 
SUBROUTINE  T ADR ( ADRES# MODE, REG, NUM, TYPE, FLG) 
CHARACTERS  ADRES# SW ITCH# ADRES 1 
CHARACTER*!  MODE < 3) # REG< 3) # TYPE# R# HEX < 4) 
CHARACTER*!  BIN16<16),BIN32(32) 

INTEGER  FLG# NO 
INTEGER*4  NUM, NUMBER 
IF(ADRES(:t).EQ,«D*)GO  TO  100 
IF(ADRES(ll).EQ,*A*)GO  TO  200 
IF(ADRESC1).EQ.  **«)GO  TO  300 
IF(ADRES(ll).EQ,*+*)GO  TO  400 
IF(ADRES(ll).EQ,'-')GO  TO  450 
IF(AORES(»l).EQ,*X*)GO  to  500 
IF( ADRES ( Jl),EQ,*P*)GO  TO  700 
IF(ADRES(ll),EOf *S')GO  TO  600 
IF<ADRES<U)  ,EO,'#*)GO  TO  800 
WRITEC5#77)ADRES(l:l) 

FOHMATIIX, *  IMPROPER  ADRESSING  SPECIFIER  I  * 
STOP 


VALID  REGISTER  NUMBER  •  EXECUTION 


'#  Al#  * 


FATAL') 


DATA  REGISTER  DIRECT 


o  o 


MODE ( t ) *'0' 

MODE 

M0DEC3) sf 0* 

GO  TO  250 

ADRESS  REGISTER  DIRECT 
200  TYPE*'  1  * 

MODE ( 1 ) s'  1  ? 

MODE ( 2) 0' 

MODE(3)s'0' 

250  RsADRES (2*2) 

CALL  ADRLOC(R,REG) 

FLGs0 
GO  TO  900 
C 

C  ADRESS  REGISTER  INOIRECT 

300  TYPE**  1  * 

RsADRES (3 1 3) 

CALL  ADRLOC (R#  REG) 

MOOE< l)a*0* 

MOOE (2) a* 1  * 

MODE ( 3) **0* 

FLGs0 
GO  TO  900 
C 

C  ADRESS  REGISTER  IND,  WITH  POST  INCREMENT 

400  TYPEs«l# 

RaADRES ( 3 1 3) 

CALL  AORLOC<R,REG) 

MODEUJaM* 

MODE ( 2) a* 1  * 

MODE(3)a'0* 

FLGa0 
GO  TO  900 
C 

C  ADRESS  REGISTER  IND,  WITH  PRE-DECREMENT 

450  TYPEa'l* 

RaADRESC3:3) 

CALL  ADRLOC (R# REG) 

MODE( l)s*0* 

MODE(2)a*0* 

MODE  <  3) s*  1  # 

FLGa0 
GO  TO  900 
C 

C  ADRESS  REGISTER  INDIRECT  WITH  DISPLACEMENT 

500  TYPEa'l* 

NOa0 

IF(ADRES(2j2),EQ’,  *S')GO  To  520 
IF(ADRES(2j2),NE,*-*)G0  TO  505 
ADRESlaADRES(3l7) 

NOa  1 

SO  TO  510 

505  ADRESlaADRES(2:6) 

510  OPEN(UNIT82,FILEa*TFMPtDAT*,STATUSa<'NEWM 

WRITE(2#515)A0RES1 
515  FORMAT ( 1X»  A9) 

REWIND  2 
READ(2#  5 1 7) NUM 
517  FORMAT (19) 

CLOSE (UNITa2, ST ATUSa'DELETE') 

GO  TO  540 
520  M*4 

DO  525  Ja3«6 

HEX(M)aADRES(JiJ) 


All 


O  O  9-0  0 


M*M-1 

525  CONTINUE 

CAUL  HEXNUM<HEX,NUM) 

540  IF(ADRES(2:2). NE, •-* ) GO  TO  570 

CALL  NUM0IN(NUM,BIN32#BIN1<><NF) 

CALL  TC0MP(BIN16#0IN32#NF) 

CALL  BIN0IC(BIN16«NUM) 

570  FLGs  1 

KL*8+  NO 

RaADRES(KLJKL) 

CALL  AORLOC (R*  REG) 

MODE  (0**1* 

MOOE(2)s*0* 

MODE ( 3) *'  1 ' 

GO  TO  900 

ABSOLUTE  SHORT 
00  TYPEa* 1  * 

FLGsl 

MOOE (  1 ) *  *  1  * 

MODE (2) *  » 1 • 

M0DEl3)s*i* 

CALL  ADRLOC(*0«,REG) 

CALL  KSTRIN(A0RES(2:5)»HEX) 

CALL  HEXNUM(HEX*  NUM) 

GO  TO  900 

PC  AND  DISPLACEMENT 
700  TYPES* 1  * 

FLGsl 

MODE! 1 ) s«  l  * 

M0DE(2)a«l» 

MODE^)**!* 

CALL  ADRL0C(*2*,REG) 

NOsg 

IF(ADRES(3J3),EQ',»S*)G0  TO  720 
IF(ADRES(3j3),NE.*-*)G0  TO  705 
ADRESlsADRES(4j8) 

NOai 

GO  TO  710 

705  ADRESlaADRES(3i7) 

710  OPEN (UNITa2# FlLEa 'TFMP.DAT*, STATUS a* NEW*) 

WRITE(2,715)ADRES1 
715  FORMAT (IX#  A9) 

REWIND  2 
READ(2,717)NUM 
717  FORMAT ( 19) 

CLOSE (UNIT*2, ST ATUSs ‘DELETE') 

GO  TO  740 
720  Ma4 

DO  725  J*4 *  7 

HEX(M)sAORES(Jl J) 

MaM-1 

725  CONTINUE 

740  IF(A0RES(3l3) ,NE,*-«)GO  TO  770 

CALL  NUMBIN(NUM,BIN32.BIN16,NF) 

CALL  TC0MP(BIN16,BIN32#NF) 

CALL  BINDIG(BIN16,NUM) 

770  GO  TO  900 

C 

c  immediate 

800  TYPEa'i* 

FLGsl 

MODE (l)a*i* 

MOOE (2) *•  l  * 

MODE ( 3) s*  1  *  A1, 


CALL  AD*LOCt'*'»ftEej 
IF(A0RES(2j2),NE,*$*)G0  TO  850 
CALL  KSTRIN(ADRES(3:6) #HEX> 

CALL  HEXNUMt  HEX#  NUM) 

GO  TO  900 

IF(ADRES(2s2) »NE,#«*)GO  TO,  855 
ADRESlsADRES(3*7) 

GO  TO  860 
ADRESt=ADRES(2:6) 

0PEN(UNITs2#FIL£*'TF HP ,DAT'#STATUSsfNEW#) 
WRITE(2#8fe2) ADRES1 
FORMAT ( 1 X#  A9) 

REWIND  2 
READ(2#844)NUM 
FORMAT (19) 

CL0SE(UNIT=2#STATUS=# DELETE') 
IF(ADRES(2l2)tNE;'-*)G0  TO  900 
CALL  NUM8IN(NUM#BIN32#BIN16#NF) 

CALL  TC0MP(BIN16#BIN32#NF) 

CALL  BINDIG(BIN16#NUM) 

RETURN 


.•.VvVW'A'.v 


'  ‘ '  %»' 


dcsua.ft^ 


DIRECTIVES  :  DCB#  DCL#  DC W 

SUBROUTINE  DC ( LABEL/ OPER AT, ADRES 1  ,  DCOUNT# NCK) 

CHARACTER*6  LABEL#  OPERAT 

CHARACTER*?  ADRES1#SWITCH 

INTEGER  Z,NCK,K,NF,NASC, J 

INTEGER*4  DCOUNT, CONST, DS A VE, HOLD 

INTEGER*?  INTEX, INTEY, INTEZ 

BYTE  IVAR 

CHARACTER* 1  SREC (30) #  ASC I I , HEXM( 4) , HEX ( 4 ) , HEX2 ( 4 ) 
CHARACTER*!  BIN  16  ( 16) ,  BIN32  ( 32)  #  B I  NT  ( 16)  #  VAR 
EQUIVALENCE  (IVAR, VAR) 

IF(OPERAT(3l3),EQ,*B')GO  TO  50 
ACOUNTaFLOATJ(DCOUNT) 

AXX*(ACOUNT/2l)*l0« 

INTEXsJINT (ACOUNT/2.  ) 

INTEZ*10*INTEX 

INTEYaJINT(AXX) 

IF( INTEZ, NE, INTEY) DCOUNTaDCOUNT+1 
Zs0 

IVARS39 

IF(ADRESl(:l),NE'.VAR)GO  TO  100 
ASCII*ADRESl(2l2) 

N  ASC* I CHAR (ASCII) 

REAL*FLOATI(NASC) 

CONST=JIFIX(REAL) 

GO  TO  300 

IF(ADRES1(*1),NE. *«*)GO  TO  200 
SWITCHaADRESl 
ADRESl*SWITCH(2l) 

Z«l 

0PEN(UNITa2#FILEa*TEMP, DAT*# STATUS** NEW*) 

REWIND  2 

WRITE(2# 150) ADRES  1 
FORMAT ( IX#  A?) 

REWIND  2 

READ( 2# 111 ) CONST 
FORMAT (19) 

CLOSE (UNIT*2ISTATUS=*0ELETE») 

DSAVEsDCOUNT 

CALL  LABTAB(LABEL#OSAVE#K) 

SREC( l)a*S* 

SREC ( 2) ** 1  * 

IF(OPERAT(3t3) ,NE,<B«)GO  TO  400 
CALL  DIGHEX(CONST#HEX) 

SREC (3) *e0* 

SREC(4)**4* 

SREC(9)*HEX(2) 

SREC ( 10) *HEX ( 1 ) 

CALL  DIGHEX ( DCOUNT#  HEXM) 

DO  310  J* 1#  4 

SREC(JM)*HEXM(-l*J+5) 

CONTINUE 

CALL  CKSUM(SREC,0) 

DCOUNTsOCOUNT* 1 
GO  TO  999 

IF(0PERAT(3l3).NE,*W*)G0  TO  500 
CALL  DIGWEX( DCOUNT#  HEXM) 

SREC(3)**0* 

SREC (4) **5* 

IF (Z, NE, 1 ) GO  TO  405 

CALL  NUMBIN(C0NST#bIN32#BIN16#NF) 

CALL  TCOMP (BIN 16#  BIN32#  NF) 

CALL  BINDIG( BIN  16# CONST )  A14 


rr%r 


1,05  H£x) 

SREC( J*4)=HEXM(-l*J+5) 
SREC(J*8)=HEX("l*J+5) 

410  CONTINUE 

CALL  CKSUMCSREC, 1) 
OCOUNTsDCOUNT+2 
GO  TO  999 

500  CALL  NUMBIN(C0NST,BIN32,BIN16,NF) 

IF ( Z «  NE , 1 ) GO  TO  505 
NF=  1 

CALL  TC0MP(BIN16,BIN32,NF) 

505  00  510  J=17,32 

8INT(J-16)=BIN32( J) 

510  CONTINUE 

CALL  0INDIG(BINT,HOLD) 

CALL  OIGHEX (HOLD#  HEX) 

DO  520  J=l,16 

BlNlfe(J)sBIN32(J) 

520  CONTINUE 

CALL  BINDIG(BIN16iH0LD) 

CALL  DIGHEX(H0LD,HEX2) 

SREC (3)5*0* 

SREC ( 4) a*  7® 

CALL  DIGHEX (DCOUNT, HEXM) 

DO  530  Js  1 , 4 

SREC( J*4)sHEXM(-l*J+5) 

SREC( J+8)=HEX(-l*J+5) 

SREC( J+12)=HEX2(-l*J+5) 

530  CONTINUE 

CALL  CKSUMCSREC, 2) 

DC0UNTsDC0UNT+4 

C 

999  NCK=i 

WRITE (4, 1000) (SRECCJ)f J=l,30) 
FORMAT(1X,30AU 
RETURN 
END 


1000 


DIRECTIVE  l  EQU 
SUBROUTINE  EQU(LABEL, ADRES, NCK) 
CHARACTER*6  LABEL 
CHARACTER*9  AORES 
CHARACTER* 1  REG ( 3) / MODE ( 3) 

INTEGER**!  NUH 
IF(NPASS.EQ,2)G0  TO  100 

CALL  TADR(ADRES, MODE, REG, NUM) 

CALL  LABTAB(LABEL,NUM,NB) 

NCKsl 

RETURN 

END 

DIRECTIVE  I  DS 

SUBROUTINE  DS (LABEL, OPER AT, DCOUNT, NCK) 
CHAR ACTER*6  LABEL, OPERAT 
INTEGER  NCK, K 

INTEGER**!  DCOUNT,  INTEZ,  INTEY, DSAVE 
IFC0PERAT(3j3)«EQ»*B*)G0  TO  100 
ACOU NT * FL 0 AT J( DCOUNT) 
AXXs(ACOUNT/2r.)*10, 
INTEZsl0*JINT(ACOUNT/2.) 
INTEYaJINT(AXX) 

IF ( INTEZ, NE. INTEY) DCOUNTsDCOUNT* 1 
DSAVEsDCOUNT 

CALL  LABTAB( LABEL, DSAVE, K) 
IF(OPERAT(3*3),NE.*B«)GO  TO  200 
DCOUNTsDCOUNT+1 
GO  TO  300 

IF(0PERAT(3l3),NE,*L*)G0  TO  300 
OCOUNTsDCOUNT+4 
GO  TO  300 
DC0UNTa0C0UNT*2 
NCKsl 
RETURN 
END 

DIRECTIVE  l  END 
SUBROUTINE  END(PC0NT2, NSTOP} 

INTEGER**!  PC0NT2 
CHARACTER**!  NSTOP 
CHARACTER*!  SREC  C  30) ,  HEX  ( *!} 

SREC ( 1 ) s*S* 

SREC(2)*«9* 

DO  50  Js 1 , 6 
SREC( J*2)**0* 

CONTINUE 

WRITE (9, 100) (SREC ( J) , Js 1 , ft) 

FORMAT ( 1 X, 8A 1 ) 

N3TOPs*STOP» 

RETURN 

END 


ADDRESS  DIRECT  DE5T,  ADD, SUB 

SUBROUTINE  OPTA ( LABEL, OPERAT, ADRES l , ADRES2, PCOUNT , 
$NW0RDS,HEXH,BIN1,BIN2) 

COMMON/ BLOCK  1 /NP ASS 
CHARACTER*6  LABEL#  OPERAT 
CHARACTER*9  ADRES 1 , ADRES2 

CHARACTER*  1  BIN1  ( 1 6) «  BIN2(  16) ,  BIN32(  32)  #  HEXM ( *t ) 
CHARACTER*!  REG( 3) # DREG( 3) , MODE ( 3) , TYPE 
INTEGER  FLG,NWORD5  a16 


V .  v-T**  V- .-iv- .v A VwV-V-V-  .v .v X  . 


i  N  I  fcl»CK  *  *4  rtUUNl , NUh 

IF ( NPAS5 ,  NE#  1 )  GO  TO  20 

CAUL  LABTA8(LAB£L,PC0UNT,NK) 

IF(A0RESl(l!l)#EQ.#(O ACRES  is »$0000* 

60  TO  30 

CALL  LA8AD(ADRES1, ADRES2) 

CALL  DIGHEX(PC0UNT,HEXM) 

IF<ADRES2(lll).NE,*A*)G0  TO  50 

IF(0PERAT(  1  j5)  ,NE, 'MOVEAdGO  TO  34 
DO  32  Js  1 ,  16 
BIN1 ( J)s?0* 

CONTINUE 
BINl(l«)s*lf 
BIN1 (7) »' 1  * 

IF(0PERAT(6J6) ,NE,'W»)G0  TO  33 
BIN1 ( 13) a* 1  * 

GO  TO  58 

IF(0PERAT(6:6) ,NE,#L')G0  TO  50 
GO  TO  58 
DO  35  J*l,16 
BIN1 (J)s'l' 

CONTINUE 

IF(0PERAT(5:5) .NE."W*)G0  TO  40 
BIN1 (9) a#H* 

GO  TO  55 

IFCOPERATfSsSJ.NE.'LdGO  TO  50 
GO  TO  55 

WRITEC5,52)0PERAT 

F0RMAT(1X, 'IMPROPER  SIZE  SPEC  OR  ADDRESS  MODE  FOR  :',A6) 
STOP 

BINl ( 14) s*  0* 

IFfOPERATU  j3)  .EQ,'SUBHBINI(  I5)*f0* 

CALL  TADR(ADRES2, MODE, DREG, NUM, TYPE, FLG) 

CALL  TADR (ADRES1, MODE, REG, NUM, TYPE, FLG) 

DO  60  J=l,3 

BXNKJ+9) sDREG(J) 

BINl ( J)*REG( J) 

BIN1CJ+3) sMODEC J) 

CONTINUE 
NWORDS* 1 
PC0UNT*PC0UNT*2 
IF ( FLG, EQ , 0) GO  TO  100 
NW0RDS*2 
PC0UNT*PC0UNT+2 
CALL  NUMBIN(NUM,BIN32#BIN2,NZ) 

RETURN 

END 


NO  OPERATION, STOP 

SUBROUTINE  NOP (LABEL, OPER AT, PCOUNT, NWORDS, HEXM, BINl ) 

COMMON/ BLOCK  1/ NPASS 

CHARACTER'S  LABEL, OPERAT 

INTEGER'4  PCOUNT 

CHARACTER* 1  BIN  1 (1 6) , HEXM( 4) 

IFCNPASS.NE, IJGO  TO  20 

CALL  LABTABCLABEL, PCOUNT, K) 

CALL  DIGHEX (PCOUNT, HEXM) 

NWORDSsl 
PCOUNT  sPC0UNTT2 
DO  30  J*l,16 

BIN1 ( J)»'0*  A17 


A17 


It 


CUNT INUt 

BINl(15)sM' 

BINt(l?)='l* 

BIN1 ( 1 1 ) a*  l  * 

BIN! ( 10) a* I  * 

BINl(7)s«l« 

BIN1(6)*M* 

BIN|(5)=*1* 

BINlCUs'l* 

IF(OPERAT(  1 :4)  ,NE,  *STOP*)GO  TO  40 
BlNl(2)s'l* 

BINl(l)a*0* 

CONTINUE 

RETURN 

ENO 


JUMP, JUMP  TO  SUBROUTINE  (JMP,JSR) 

SUBROUTINE  JUMP ( LABEL# OPERA T , ADRES 1 , PCOUNT, NWORDS, 
SHEXM,BIN1,BIN2) 

COMMON/BLOCK I/NP ASS 

CHARACTER*  1  BINin6),BIN2(16),BIN32(32)#HEXM(4) 

CHARACTER*!  MOD£(3) #HEG(3) , TYPE 

CHAR ACTER*6  LABEL#  OPERAT 

CHARACTER*?  ADRES 1, ADRESO 

INTEGER*4  PCOUNT#NUM 

integer  FLG 

ADRES Da *$0000* 

IF(NPASS,NE, 1JGO  TO  20 

CALL  LABTAB(LABEL«PCOUNT#NA) 
lF(ADRESl(l:l),EQ.*(«)ADRESlr*S0000' 

GO  TO  30 

CALL  LABADUDRESI, ADRESO) 

CALL  D I GHEX (PCOUNT # HEXM) 

DO  40  Jsl#16 
BIN1 ( J) s* i * 

CONTINUE 
BIN! ( 16) s*0* 

BIN! ( 1 4) a*0* 

BIN! ( 13) 3*0* 

BINl(9)ae0' 

IF  (OPERAT (lt3),NE.'RTS*)G0  TO  45 
FLGa0 

8IN1 (2) s*0* 

BlNt(4)a*0» 

BINl(8)a*0* 

GO  TO  50 

CALL  TADR ( ADRES 1, MODE# REG, NUM, TYPE# FLG) 

DO  50  Jsl#3 

BlNHJ)sREG(J) 

BINl(J*3)*MOOE(J) 

CONTINUE 
NWQROSs 1 
PCOUNTsPCOUNT+2 
IF(FLG, NE, 1 ) GO  TO  70 
NM0RDS32 
PC0UNTaPC0UNT+2 
CALL  NUMB IN( NUM, BIN32#BIN2#NZ) 

IF  (OPERAT  ( 21 3).  EQ , 'SR  »)  SINK  7)s*0* 

RETURN 

ENO 


SUBROUTINE  MULDIV, MULTIPLY, D IVIDE 

SUBROUTINE  MULDIV (LABEL# OPERAT, ADRES 1 # ADRES2# PCOUNT 
SNWOROS#  HEXM, BIN  1, BIN2)  A18 


l 


AS 


k 


f? 


h 


i-^ 


K 


4 


UUMMUN/BU.UCM/NPAS& 

CHAR ACTER*6  LABEL#  OPERAT 
CHARACTER*9  ADRES 1 , A0RES2 

CHARACTER* 1  DREGC3)#HEXM<4),BIN32(32)#M0DEC3)#REG(3> 
CHARACTER* 1  T YPE# BIN  1 ( 16) » B IN2 ( 16) 

INTEGER*4  NUM,PCOUNT 

integer  FLG 


IFCNPASS.NE, l)GO  TO  20 

CALL  LABTAB(LABEL#PCOUNT#NA) 
lF<ADRFSl(l:l),EQ,'e')ADRESl='$0000' 
GO  TO  30 


1 

20 

CALL  LAB AD ( ADRES 1 # 

ADRES2) 

1 

30 

CALL  OIGHEX (PCOUNT 

#  HEXM) 

£ 

DO  40  J=l# 16 

> 

BIN1 ( J) a* l • 

*  ^ 
r\ 

40 

CONTINUE 

v- 

BIN! ( I3)s'0# 

50 

555 

60 


70 


80 


BINl(t4)s'0« 

IF( OPERAT (1:3)  ,EQ,'DIV*)BIN1 (15)3*0* 
IF(0PERAT(4l4) ,EG,»S«)GO  TO  50 
BIN1 (9)a*0* 

IF ( ADRES2 (ltl),EQ,*D*)G0  TO  60 
WRITE(5#555) OPERAT 

FORMAT( IX, 'IMPROPER  ADDRESSING  FOR  |',A6) 
STOP 

CALL  T ADR (ADRES2#M0DF# DREG, NUM, TYPE# FLG) 

CALL  TAORCADRES1, MODE# REG, NUM# TYPE, FLG) 

DO  70  J«l#3 

BIN1(J)=REG(J) 

BIN l ( J+3) sMOD£( J) 

BINHJ*9)aOREG(J) 

CONTINUE 
NMORDSa 1 
PCOUNT*PCOUNT*2 
IF(FLG, NE, 1 ) GO  TO  80 
NHORDS32 
PCOUNTePCOUNT+2 

CALL  NUMBINtNUM#  BIN32#  BIN2#  NZ) 

RETURN 

END 


C 

C 

C 


> 

100 

ii 

150 

- 

>. 

200 

V\ 

4 

>*• 

• 

►  * 

^v.VkV.v;a’/.v. 

NEX, NEG  . 

SUBROUTINE  NEGILABEL#  OPERAT, ADRES 1 ,PCOUNT# NWORDS, 
SHEXM, BIN1 , BIN2) 

COMMON/BLOCK1/NPASS 

CHARACTER*!  BIN  1 ( 1 6) # BIN2( i 6) # B IN32( 32) # HEXH(4) 

CHARACTER*!  MODE ( 3) # REG ( 3) , TYPE 

INTEGER  FLG 

INTEGER*4  PCOUNT,NUM 

CHARACTER*9  AORESl, DUMMY 

CHARACTER*6  LABEL#  OPERAT 

DUMMYs'$0000' 

IF(NPASS,NE, l)GO  TO  100 

CALL  LABTAB(LABEL#PCOUNT,NK) 

IFUORESHlJ  1),EQ,»(')  ADRES  la' $0000' 

GO  TO  150 

CALL  LA8A0(ADRESl# DUMMY) 

CALL  OIGHEX(PCOUNT,HEXM) 

00  200  Ja 1 , 1 6 
BINl(J)a*0* 

CONTINUE 

IF(0PERAT(4l4),EQ,'B')G0 
IF(0PERAT(4|4),NE,'W')G0 
BINl (7) *'  1  * 


TO 

TO 


240 

210 


A19 


>&l'ht*yiv\v,Cv,Ls^N,Csfl 


IS 


GO  IU  240 

IF(0PERAT(4:4),NE, 'L«)GO  TO  220 
BIN1(8)  =  M' 

GO  TO  240 

WRITE(5,225)0PERAT 
F0RMAT(1X, 'IMPROPER  SIZE  SPEC  FOR  ',A6) 
STOP 

CALL  TAOR ( ADRES 1, MODE, REG, NUM, TYPE, FLG) 
DO  250  Jal,3 

BlNKJ)aREG(J) 

BIN1( J+3)=M0DE(J) 

CONTINUE 
NMORDSsl 
PC0UNTsPC0UNT+2 
CALL  NUMBIN(NUM,BIN32,BIN2,NZ) 
BIN1(15)sM' 

IF(0PERAT(lt3)*EGt'NEG')BINl(ll)sM' 
RETURN 
END 


SWAP 

SUBROUTINE  SWAP (LABEL# OPERA T, ADRES 1, PCOUNT, NWORDS, 
SHEXMf  BIN1) 

COMMON/BLOCK 1/NP ASS 

CHARACTER*!  MODE ( 3) , REG( 3) , HEXM( 4) , BIN1 tl 6) 

CHARACTER*!  BIN32C32) ,TYPE 

INTEGER  FLG 

INTEGER*4  PCOUNT «  NUM 

CHARACTER*6  LABEL, OPERAT 

CHARACTER*?  ADRES! 

IFlADRESKlilJ.NE.'D'JGO  TO  60 
IF(NPASS,NEt l)GO  TO  20 

CALL  LABTABI LABEL, PCOUNT, NA) 

CALL  D I GHEX (PCOUNT , HEXM) 

DO  30  J*l,16 
BIN1(J)#*0« 

CONTINUE 

BIN1<15)»'1' 

BINl(l2)='l' 

BIN! (7) a* 1  * 

CALL  TADR ( ADRES 1, MODE, REG, NUM, TYPE, FLG) 

DO  40  J=  1 , 3 

BlNKJ)aREG(J) 

CONTINUE 
PC0UNTaPC0UNTt2 
NWORDSa 1 
RETURN 

WRITE(5, 70) OPERAT 

FORMAT (IX, 'IMPROPER  ADDRESS  FOR  ',A6) 

END 


.v.v.v.v. 


UTL60e.FTr 0 


SEPARATES  STRING  INTO  ARRAY 
SUBROUTINE  KSTRIN(SOLID#S£P) 
CHARACTERS  SOLID 
CHARACTER* 1  SEP(4> 

DO  100  J=  1 , 4 
K  =  5-J 

SEP( J)sSOLID(KJK) 

CONTINUE 

RETURN 

END 

16  OR  32  BIT  TWO'S  COMPLIMENT 
SUBROUTINE  TCOMP ( BIN16, BIN32» NF) 
CHARACTER*!  BIN16( 16) , BIN321 32) 
INTEGER  NF 

IF( NF, NE, 0) GO  TO  100 
DO  50  K®  1 1  16 

IF(BIN16(K),EQ.f0')Gd  TO  40 
BIN16(K)a*0* 

GO  TO  50 
BIN16C  K) s'  1  * 

CONTINUE 
DO  75  K*l#16 

IF(BIN16(K),NE,'0')GO  TO  60 

BIN16(K)3'1« 

GO  TO  90 
BIN16(KJs«0' 

CONTINUE 
GO  TO  200 
DO  150  K*l,32 

IMBIN32(K).EQ,»0*)GO  TO  140 
BIN32CK)s*0# 

GO  TO  150 
BIN32(K)s* 1* 

CONTINUE 
DO  175  Ks l ( 32 

IF(BIN32(K) ,NE,'0*)GO  TO  160 
BIN32<K)s* 1* 

GO  TO  200 
BIN32(K)s*0' 

CONTINUE 

RETURN 

END 

16  OR  32  BIT  ONE'S  COMPLIMENT 
SUBROUTINE  0C0MP(BIN16,BIN32#  NF) 
CHARACTER*!  BIN16U6)  ,  BIN32  ( 32) 
INTEGER  NF 

IF ( NFf NE, 0) GO  TO  100 
DO  50  K* 1  §  16 

IF(BIN16(K),EG,,0')GO  TO  40 
BIN16(K)3'0* 

GO  TO  50 
BlN16(K)s*l* 

CONTINUE 
GO  TO  200 
DO  150  K» 1 »  32 

IF(BIN32(K).EQ,'0')GO  TO  140 
BIN321K) s'0* 

GO  TO  150 
BIN321 K J  a* 1 ' 

CONTINUE 

RETURN  A2 


CHECKSUM  SUBROUTINE 
SUBROUTINE  CKSUM(SREC, LENGTH) 

C0MM0N/8L0CK1/NPASS 

C0MM0N/BL0KK2/LABEL, OPER AT, ADRES 1,ADRES2 
INTEGER  length, nz,d,npass 

CHARACTER* 1  SREC ( 30) , HEX ( 4) , B INI  6 ( 1 6) , B IN32( 32) , SPEC ( 30) 

CHARACTER*6  LABEL/ OPERAT 

CHARACTER*9  ADRES 1 , A0RES2 

INTEGER*^  SUM , NUM, CSUM 

HEX ( 4) a  *  0* 

HEX(3)a»0* 

SUMa0 

Ns2 

IF(LENGTH,EO,0)NZa4 
IF ( LENGTH, EQ i 1 ) NZs5 
IF ( LENGTH, EQ, 2) NZ»7 
IF(LENGTH,EQ.3)NZs9 
DO  100  Ja 1 , NZ 

HEX(2)sSREC(NM) 

HEX(l)aSREC(N*2) 

CALL  HEXNUM! HEX, NUM) 

SUMaSUH+NUM 

N~N*2 

CONTINUE 

CALL  NUMBIN(SUM,BIN32,BIN16,0) 

CALL  OCOMP(BINlb,BIN32,0) 

CALL  BINDIG(BIN16,CSUM) 

CALL  DIGHEX(CSUM.HEX) 

SREC(N+l)aHEX(2) 

SREC (N*2) *HEX ( 1 ) 

IF(NPASS,NE,2)G0  TO  200 
DO  110  JKs 1,25 

SPEC(JK)aSRECCJK) 

CONTINUE 
SPEC ( N* 1 ) a*  * 

5PEC(N*2)*e  « 

WRITE(11, 120) LABEL, OPER AT, ADRES 1,ADRES2, (SPEC! JZ),JZa5, 203 
FORMAT! IX, A6, T9, A6, T 1 7, A9,T28, A9, T40, 4A 1 , T50, 2A 1 , 1X,2A1, 
S1X.2A1, 1 X , 2A l , 1 X, 2A 1 , 1 X, 2A 1 ) 

RETURN 

END 

LABEL/LOCATION 

SUBROUTINE  LABT AB (LABEL, PLACE, NK) 

CHAR ACTER*6  LABEL, LARRY U 00) 

INTEGER**!  PLACE, LOCATU00) 

COMMON/BLOCK 1/NP ASS 
IP(LABEL,EQ,#XSTART«)N*1 
IF(NPASS,EQ,2)G0  TO  100 
LARRY(N)aLABEL 
LOCAT ( N) rPLACE 
N*N*t 
GO  TO  200 
DO  150  Ka l , i 00 

IF(LABEL,NE,LARRY(K) )G0  TO  150 
PLACE*LOCAT(K) 

GO  TO  200 
CONTINUE 
RETURN 
END 

LABEL/ADRESS  SUBROUTINE 
SUBROUTINE  LABAD ( ADRES 1 , ADRES2) 

CHARACTER*!  HEX ( 4) , HEX2 (4)  A22 


^ . 

£ 

• 

iNlfcbCK*4  Pl,Att,PLALt2 

k' 

CHARACTER**)  ADRES 1  /  ADRES2 

IF(ADRESl(l:n.NE,'(*)GO  TO  110 

& 

CALL  LABTAB(ADRES1(2:), PLACE, NK) 

CALL  DIGHEX (PLACE*  HEX) 

0PEN(UNITs2,FIlE=*TMP,DAT*,STATUSs*NEW*) 

WRITE  (2,  120) (HEX (J),J=4, 1,-1) 

120 

FORMAT ( IX*  *S',4A1) 

' 

REWIND  2 

CLOSE  (UNITs2*STATUS='KEEP#) 

- 

OPEN  (UNIT=2,FILEs*TMP,DAT*,STATUS='0LD*) 

i.  * 

REA0C2, 130JADRFS1 

u 

130 

FORMAT ( T2, A9) 

CL0SE(UNIT=2,STATUSs«DELETE*) 

110 

IF(ADRES2C1:1),NE,*(')G0  TO  140 

fto 

CALL  LABTAB(A0RES2(2l)*PLACE2#NK) 

s 

CALL  DIGHEX(PLACE2,HEX2) 

8c 

* 

OPEN (UNI Ts2,FILE=* TCP. DAT*, STATUS** NEW*) 

» 

WRITE (2* 135) (HEX2(J), J*4, 1,-1) 

REWIND  2 

V 

901 

135 

F0RMAT(1X,*S*,4A1) 

p 

REWIND  2 

81 

READ (2* 138) ADRES2 

-V 

138 

FORMAT ( T2, A9) 

l>: 

CLOSE ( UNI Ts2* ST ATUSs*DELETE*) 

140 

RETURN 

y 

END 

F>:- 

C 

BTST  -  BIT  TEST 

jg 

ft 

SUBROUTINE  TEST ( LABEL, OPER AT, ADRES 1, ADRES2, PCOUNT,  NWORDS, 

SB 

* 

SHEXM*BIN1*BIN2*BIN3) 

58 

ft 

COMMON/BLOCK 1/NP ASS 

V 

CHARACTER* 1  B IN 1 ( 1 6) * B IN2 ( 16) , BI N32 ( 32) * HEXM( 4 ) 

CHARACTER*!  MODE ( 3) , REG( 3) , TYPE 

38 

t 

CHAR ACTER*6  LABEL.OPERAT 

r 

CHAR ACTER*9  ADRES 1 , ADRES2 

qS 

INTEGER*4  PCOUNT, NUM 

St 

INTEGER  FLG 

Si 

IF(NPASS,NE, 1)G0  TO  20 

CALL  LABTAB(LABEL*PCOUNT,NA) 

m 

* 

IF(ADRES2(l:l),EQ,*<»)ADRES2s*S0000* 

m 

GO  TO  30 

ik.‘- 

20 

CALL  LABAD(ADRES1*ADRES2) 

& 

5? 

30 

CALL  DIGHEX(PCOUNT,HEXM) 

DO  40  J*l, 16 

BIN1 ( J)s*0* 

• 

40 

CONTINUE 

BINl(12)s«l* 

»\v 

CALL  T ADR ( ADRES 1, MODE, REG* NUM* TYPE, FLG) 

CALL  NUMBIN(NUM,BIN32*BIN2*NZ) 

fit 

NW0R0Ss2 

| 

’ 

CALL  TADR(ADRES2, MODE, REG, NUM, TYPE, FLG) 

DO  50  J* 1 , 3 

BINKJ)sREG(J) 

BIN1(J*3)sM0DE(J) 

s 

50 

CONTINUE 

PC0UNTsPC0UNT+4 

ffi 

IF(FLG, NE, 1 ) GO  TO  70 

NW0RDSs3 

PCOUNTsPCOUNT+2 

u 

CALL  NUMBIN(NUM,BIN32, BIN3.NZ) 

tv- 

70 

RETURN 

tv. 

END 

1 

A23 
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OPERATION  CODE  SUBROUTINES 
ADD, AND, ORR, CMP, SUB 

SUBROUTINE  ANDADD ( LABEL, OPER AT , ADRES 1 , ADRES2, PCOUNT , NwORDS , 
&HEXM,BIN1,BIN2) 

COMMON/BLOCK 1/NPASS 

CHARACTER* 1  BIN  1 ( 1 6) , BIN2( 1 6) , HEXH( 4 ) , SD, BIN32 ( 32) 

CHARACTER*!  REG1 ( 3) , REG2( 3) , MODE  I ( 3) , M0DE2 C 3) , T YPE 

INTEGER  NWORDS, FLG1,FLG2 

INTEGER*#  PCOUNT, NUM1,NUM2 

CHARACTER**?  ADRES  1 ,  ADRES2 

CHARACTER*6  LABEL, OPERAT 

IF(NPASS,NE,l)GO  TO  100 

CALL  LABTABILABEL, PCOUNT, NA) 
IF(AORESl(lJl)tEO,*(#)ADRESls#$0000# 

IF(ADRES2(! Jl),EQ.#(*)ADRES2s'$0000# 

GO  TO  150 

100  CALL  LABAD( ADRES 1 , ADRES 2) 

150  CALL  DIGHEX (PCOUNT, HEXM) 

C 

IF(OPERAT(#i4).EQtM')BINl(9)a*0« 

IF(0PERAT(4l#).EQ,*2<!)BINl(9)s«l» 

IF(0PERAT(5l5).NEt'B*)G0  TO  160 
BIN1 (7)»*0* 

BlNl(8)s*0# 

GO  TO  170 

160  IF(0PERAT(5l5).NE,*L«)G0  TO  165 

BIN1(7)='0' 

BlNl(8)a«l* 

GO  TO  170 

165  IF(OPERAT(5j5).NEf*Wff)GO  TO  167 

BIN1 ( 7) a*  1  • 

BlNl(8)a*0« 

GO  TO  170 

167  WRITE(5, 169J0PERAT 

169  FORMAT ( IX, # IMPROPER  SIZE  SPEC  IN  t  #,A6,»  INSTRUCTION') 

STOP 

170  CALL  TADR(ADRES1,M0DE1,REG1,NUM1,TYPE,FLG1) 

CALL  TADR(ADRES2,MODE2,REG2,NUM2,TYPE,FLG2) 
IF(BINt(9),NE,f0*)GO  TO  200 

DO  180  Jsl,3 

BIN1( JJsREGl (J) 

BIN1(J*3)8M0DE1(J) 

180  CONTINUE 

IF(FLGl.NE.l)GO  TO  190 
NWORDSa2 
PCOUNTaPCOUNT+# 

CALL  NUMBIN(NUM1,BIN32,BIN2,NZ) 

GO  TO  195 
190  NWORDSa 1 

PC0UNTaPC0UNT*2 
195  DO  199  Ja  l , 3 

BINl(J*9)rREG2( J) 

199  CONTINUE 
GO  TO  250 

200  DO  210  Jai,3 
BINl(J)aREG2(J) 

0INl(J*3)aMODE2(J) 

CONTINUE 

IF(FLG2,NE,l)GO  TO  215 


210 


A2A 


non 


I."  <-  v. 


lASAMMSMl 


n*uHUo*-z 

PC0UNTsPC0UNT+4 

CALL  NUMBIN(NUM2#BIN32#BIN2#NZ) 
GO  TO  225 

NWORDSa  J 

PCOUNTaPCOUNT+2 
DO  229  Js 1 i 3 
BINl(J*9)aREGl(J) 

CONTINUE 

BINl(13)a*l* 

BIN1 ( 14) s?0* 

BINl(l5)a*J* 

BINl(t6)rM* 

IF(OPERAT(2j2).EQ,'N')BINl(13)a?0' 

IF(0PERAT(2s2)«NEt'U*)G0  TO  700 
BIN1 ( 15)s#0* 

GO  TO  900 

IF(0PERAT(3l3),NE.*R«)G0  TO  800 
8INlU3)a'0<* 

BlNl(IS)a*0e 
GO  TO  900 

IF(OPERAT(3l3),NE»*P*)GO  TO  850 
BlNKiajaM* 

BIN1 ( J5)a#0 ' 

GO  TO  900 
CONTINUE 
RETURN 
END 


MOVE  COMMAND 

SUBROUTINE  MOVE (LABEL# OPERAT, ADRES l , ADRES2, PCOUNT,  NWORDS,  HEXM, 

&BIN1#BIN2#BIN3) 

rnMMfiN/Ri  nr v i  /mpiqc 

CHARACTER*  1  BIN1  (16)  #  8IN2U6)  ,  BIN3 ( 16) ,  BIN32 C  32) ,  HEXM C  4) 
CHARACTER*!  TYPE#REG1(3)»  REG2(3) «  MODE l(3)#MODE2(3) 

INTEGER  NW0R0S,FLG1#FLG2 
INTEGER*4  PC0UNTiNUM1,NUM2#NTRAC 
CHARACTER*9  ADRES l # ADRES2 
CHARACTER*6  LABEL#  OPERAT 
IF(NPASStNE,l)GO  TO  100 

CALL  LABT AB( LABEL#  PCOUNT#  NK) 
IF(ADRESl(lJl),EQ#*(')ADRESla*S0000* 

IF(ADRES2(lt i) ,EQ,»(«)ADRES2a»S0000' 

GO  TO  150 

CALL  LABAD(ADRESi#ADRES2) 

CALL  DIGHEX (PCOUNT, HEXM) 

IF(0PERAT(5>5),NE,#B*)G0  TO  160 
BIN! ( 13) ** 1 ® 

8IN1 ( 14)a?0? 

GO  TO  170 

IF(0PERAT(5«5).NE,*L*)G0  TO  165 
BlNl(13)a'0« 

BIN  1 ( 1 4) a  *  1 ? 

GO  TO  170 

IF(0PERAT(5«5},NE,'W*)G0  TO  167 
BIN1 ( 13)*' l o 
BINl(14)a«lf 
GO  TO  170 

WRITE(5# 169) OPERAT 

FORMAT ( 1 X,  ? IMPROPER  SIZEB  SPEC  IN  |»#A6#*  INSTRUCTION') 

STOP 

BINI ( 15) s*0*  A25 


•  .  1  .  •#*  •  , 
^  .  *  .  »  .  < 


v.v;/:#:.*; 


w 


% 


w  *  - 


L  *  . 


OINK  I6Ja*o* 

CALL  T ADR ( ADRES 1, MODE 1,REG1,NUM1,TYPE,FLG1) 
CALL  TADR(ADRES2»  MODE2,REG2,  NUM2,TYPE,FLG2) 
00  175  J*t#3 

BlNl(J)sREGKJ) 

BINl(J*3)aM0DElCJ) 

BINl<J*6)aM0DE2(J) 

BINl(J*9)aREG2< J) 

CONTINUE 

IFCFLGl , NE, 1 ) GO  TO  200 
NTRAC84 
NW0RDS=2 

CALL  NUMBIN(NUM1,BIN32,BIN2,  NZ) 

GO  TO  210 
NTRAC*2 
NWORDSa 1 

IF(FLG2,NE.1)G0  TO  250 
NTRACaNTRAC+2 
NWORDSaNWORDS+l 
IF(NW0RDS.EQt3)G0  TO  240 

CALL  NUMBININUM2,  8IN32,BIN2,NZ) 

GO  TO  250 

CALL  NUMBIN(NUM2,8IN32,BIN3,NZ) 

PCOUNTbPCOUNT+NTRAC 

RETURN 

END 


SUBROUTINE  CMP(OPERAT) 
CHARACTER*6  operat 
IFC0PERAT<4i4).NE.*B»)G0  TO  50 
OPERATa*CMPlB* 

GO  TO  100 

IF(0PERAT(4|9),NE,*L*)G0  TO  60 
OPERATa'CMPIL* 

GO  TO  100 
OPERATa'CMPlW* 

RETURN 

END 


EOR  (BIARY  CODE  SIMILAR  TO  CMP) 

SUBROUTINE  EOR ( OPERAT) 

CHARACTERS  OPERAT 
IF(0PERAT(4:4).NE,,B")G0  TO  50 
0PERATa*CMP2B* 

GO  TO  100 

IF(0PERAT(4|4).NE,«L*)G0  TO  60 
0PERATa*CMP2L* 

GO  TO  100 
0PERATa*CMP2W* 

RETURN 

ENO 

ARITH,  SHIFT  LEFT  ,  RIGHT  /  LOGICAL  SHIFTS 
SUBROUTINE  AS (LABEL# OPERAT, ADRES 1 , ADRES2, PCOUNT, NWORDS, 
SHEXM,BIN1,BIN2) 

C0MM0N/BL0CK1/NPASS 

CHARACTER* 1  HEXM ( 4) , BIN1 ( 1 6) , B IN2 ( 1 6) , B IN32( 32) 
CHARACTER* 1  TYPE, MODE ( 3) , REG ( 3) 

CHARACTER*6  LABEL, OPERAT 
CHARACTER*?  ADRES 1 , ADRES2 
INTEGER*4  PCOUNT,NUM 
INTEGER  NWORDS, FLG 

IF(NPASS,NE, i)GO  TO  20 

CALL-LABTABCLABEL,PCOUNT,NK)  A26 


iriAUKfcauisn.tu.'f^AUKksis'SBtJtJW 
IFCA0RES2(lJ  1)  (EQ«  '  ( ') ADRES2s'$0000* 
GO  TO  10 

20  CALL  LABADUDRESl,  A0RES2) 

30  CALL  DIGHEX(PCOUNT,HEXM) 


50 

70 

100 

120 

130 

135 

200 

210 

215 

220 

700 


IFC0PERAT(5:5).NE.<,9*)G0  TO  50 
8INl(7)s*0» 
flINI (8)s#0# 

GO  TO  100 

IF<0PERAT(5j5).NE,'L#)G0  TO  70 
BIN1(7)s«0» 

BIN  1 ( fl) s* l • 

GO  TO  100 
8INl(7)=M' 

BIN1 (8) s#0* 

IF(OPERAT(3l3),£Q,'L*)BINl(9}sM* 

IFIOPERATISjSJ.EQ.'R'JBINl^Js'Bf 

BIN1(13)3'0* 

BINl(14)s*l* 

BIN1 ( 15) *# I  * 

BIN1C16)*'!* 

IF(OPERAT(4ifl) ,EQ«*M*)GO  TO  200 
BliNl(6)s#l* 

IF(A0RESK1JI),NE.*D*)G0  TO  800 
IF(ADRES2(1;1),NE«*D*)G0  TO  800 
CALL  TADR(ADRES1, MODE, REG, NUM, TYPE, FLG) 
DO  120  Ja l / 3 

BXN1(J*9) aREG( J) 

CONTINUE 

CALL  TADR(A0RES2, MODE/ REG, NUM. TYPE/ FLG) 
DO  130  J»l,3 

BXNl(J)aREG(J) 

CONTINUE 

BIN1<4)**0« 

BIN! (5)s*0* 

IF<0PERAT(U1),NE,'R*)G0  TO  135 
BIN1(4)8*1* 

BIN1(5)*M* 

CONTINUE 

NWORDSal 

PC0UNT»PC0UNT*2 

Iff OPERA T (lil),EQ«*L*)BINl(4)»*l* 

GO  TO  700 
DO  210  J»l,3 

BINi(J*9)s»0« 

CONTINUE 

BIN1<7)«M* 

BIN1 (8) ** 1  * 

IF(OPERAT(l Jl),EQ,'L')BINi(10)s»l* 
IF(OPERAT( 1 | 1) ,NE, fR* )GO  TO  215 
BIN1 ( 10)a*0» 

BIN1 ( l 1 ) **0* 

CONTINUE 

CALL  T ADR (ADRES1, MODE/ REG, NUM, TYPE, FLG) 

DO  220  Js 1 , 3 

BlNKJ)aREG(J) 

SINK  J*  3)  sMODE  ( J) 

CONTINUE 
NWORDSal 
PC0UNT»PC0UNT+2 
IF(FLG,EQ,0)GO  TO  700 

CALL  NUMBIN(NUM,BIN32,BIN2,NZ) 

NW0RDS*2 

PCOUNT*PCOUNT+2 

RETURN  A27 


o  r» 


8U0  HK1 rt(5#850)OPERAI 

850  F0RMAT(1X, 'IMPROPER  ADDRESSING  HDDE  FOR  I  *,Ak) 

STOP 
END 


C 


20 

50 


50 


*0 


62 


64 


66 


68 


70 


72 


74 


76 

77 
79 


80 


CONDITIONAL  BRANCH/  UNCONDITIONAL  BRANCH 
SUBROUTINE  BCC ( LABEL, OPER AT, ADRES 1 , PCOUNT, NWORDS , HEXM, 
SB  IN  1 , BIN2) 


COHMON/BLOCK1/NPASS 

CHARACTER* 1  HEXM( 4) , BIN  1 { 16) , BIN2 ( 16) , BIN32 ( 32) , TYPE 
CHARACTER*!  REG( 3) , MODE( 3) 

CHARACTER*6  LABEL#  OPERAT 

CHARACTER*9  ADRES 1 ,  DUMMY 

INTEGER*4  PCOUNT, NUM,RESULT,NUM2,ABSRES 

INTEGER  NWORDS#NPASS#FLG 

DUHMYs*S0000* 


IF(NPASS,NE,l)GO  TO  20 

CALL  LABTAB(LABEL#PCOUNT,NK) 

IF( ADRES 1 (lJi).EQ,,(*) ADRES la *S0000* 
GO  TO  30 

CALL  LABAD( ADRES 1  $ DUMMY) 

CALL  D I GHEX (PCOUNT # HEXM) 

DO  50  Jsl#13 
BINl(J)r*0' 

CONTINUE 
BIN1 (14) »* 1  * 

BIN1(15)*M* 

BINl (16) **0* 

IF(0PERAT(2:3).NE,«RA«)G0  TO  60 
GO  TO  88 

IF(0PERAT(2l3),NE,*HI«)G0  TO  62 
BIN1 ( 10)s* 1  * 

GO  TO  88 

IF(0PERAT(2i3),NE.»LS«)G0  TO  64 
BIN! ( 10) a* ! • 

BINl(9)a'l* 

GO  TO  88 

IF(0PERAT(2i3).NE. *SR«)GO  TO  66 
BIN1 (9) a* 1  * 

GO  TO  88 

IF(0PERATC2j3).NE,*CC*)G0  TO  68 
BINltlDaM' 

GO  TO  88 


IF(0PERAT(2i3).NE.*CS*)G0  TO  70 
SINK  1  l)s#  1« 

BlNl(9)a«l* 

GO  TO  88 

IF(OPERAT(2*3) ,NEt'NE')GO  TO  72 
BINl(10)aMf 
BlNl(li)sM« 

GO  TO  88 

IF(OPERAT ( 2 1 3) *  NE #  * VC* ) GO  TO  74 
BINl(12)aM# 

GO  TO  88 

IF<bPERAT(2:3).NE,*V8')G0  TO  76 
BlNl(9)a*i* 

BlNl(12)sM' 

GO  TO  88 

DO  77  Jai,4 

BIN1 ( J+8) a* 1  * 

CONTINUE 

IF(OPERAT(2|3),NE,*EQ«)GO  TO  80 
BINl(12)«#0f 
GO  TO  88 

IF(0PERAT(2i3).NE,«PL")G0  TO  81 

•»•«)<  *  m  %  _  m  m  m 


A28 


nnn 


81 


BINl IVJS'B* 

BlNl(ll)s«0« 

60  TO  88 

IF(OPERAT<2i3).NE,'MI')G0  TO  82 
B1N1( 1 1) a*0# 

GO  TO  88 

82  1F( OPERAT (2:3),NE,*GE#)G0  TO  83 

BINl (9)*'0« 

BINl(10)a*0' 

GO  TO  88 

83  IF ( OPERAT ( 2  J  3) , NE,*LT#)G0  TO  8a 

BIN1(10)**0' 

GO  TO  88 

8a  IF(0PERAT(2t3).NE,*GT')G0  TO  85 

BIN1 (9) *'0# 

GO  TO  68 

85  IF(0PERAT(2»3).EQ,'LE»)G0  TO  88 
WRITE  15#  86) OPERAT 

86  FORMAT! IX# 'IMPROPER  BRANCH  CONDITION  |*#A6) 
STOP 

C 

88  IF( ADRES l!lsl)«EQ(*S")GO  TO  100 

IFCADRESKl  ll).EQ.*P«)GO  TO  200 
WRITE (5#  90) OPERAT 

90  F0RMAT(1X, 'INVALID  ADDRESS  FOR  i',A6) 

STOP 

C 

100  CALL  T ADR ( ADRES 1 #  MOOE #  REG#  NUM#  TYPE#  FLG) 
RESULT* NUM-PC0UNT«2 
ABSRES*J I ABS! RESULT) 

CALL  NUMB  IN! ABSRES#  BIN32#  BIN2#  NF) 

IF (RESULT , GE, 0) GO  TO  150 
CALL  TCOMP (BIN2#BIN32«NF) 

150  PCOUNT  aPCOUNT^a 

NWOROS*2 
GO  TO  300 

200  CALL  TADR(ADRESl,M00E,REG,NUM,TYPE,FL6) 

CALL  NUM8 IN( NUM#  BIN32#  BIN2#  NF) 
PCOUNT*PCOUNT+a 
NW0RDS*2 
300  RETURN 

END 


MOVEO  INSTRUCTION 

SUBROUTINE  QMOVE(LABEL# OPERAT, ADRES 1 , ADRES2# PCOUNT# 
SNWORDS#  HEXM#  BINl ) 

COMMON/BLOCK 1/NP ASS 
CHARACTERS  LABEL# OPERAT 
CHARACTER*9  ADRES 1 # ADRES2 

CHARACTER* 1  BIN! ( 16) # 0IN32 ( 32) # HEXM( a) # TYPE# BIN2C 16) 
CHARACTER*!  REG1 ( 3) , REG2 ( 3) # MODE l ( 3) , M0DE2< 3) 

INTEGER  NWORDS# FLG 
INTE6ER*a  PCOUNT, NUM1,NUM2 
C 

IF ( NP ASS, NE ,1 ) GO  TO  100 

CALL  LABTAB(LABEL#PCOUNT,K) 

100  CALL  DIGHEX(PCOUNT,HEXM) 

IF(ADRESl(lil),NE,#6«)G0  TO  200 
IF(ADRES2( lll),NE,'D')GO  TO  200 
C 

CALL  T ADR ( ADRES 1,M00E1,REGI,NUM1# TYPE# FLG) 

CALL  TA0R(ADRES2,M0DE2,REG2,NUM2, TYPE# FLG) 

BINl ! 16) *'0* 

BINl ( 15)*' l'  A29 

.  !»«»•.,  #  *  Ml  .  «  •  6.  . 


BlNUlHJS'l* 

BlNi(13)aM* 

BINl(9)s'0» 

DO  110  Jsl,3 

BIN1(J*9)sREG2(J) 

CONTINUE 

CALL  NUMBIN( NUM1 #BIN32#BIN2#NF) 

DO  1 20  Js i,a 

BINl(J)aBIN2(Jl 

CONTINUE 

PCOUNTsPCOUNT+2 

NWOPDSa] 

RETURN 
WRITE (5/ 21 0) 

FORMAT! IX, 'IMPROPER  ADDRESS  FOR  MOVEQ  COMMAND') 

STOP 

END 


ADDQ 

SUBROUTINE  GADD(LABEL# OPERAT, AORES 1 # AORES2,PCOUNT# 
SNW0RDS#HEXM,BIN1,BIN2) 

COMMON/ BLOCK 1/NP ASS 
CHARACTER*6  LABEL# OPERAT 
CHARACTER*9  ADRES 1 # ADRES2 

CHARACTER*  1  BIN1  ( 16)  #  QIN2( 16)  #  BIN32(  32)  #  HEXMt  a) 
CHARACTER* 1  TYPE#  DAT (3)#REG(3)#  MODE (3) 

INTEGER  FLG 
INTEGER**!  PCOUNT,NUM 

DO  10  Js 1 # 16 
BIN1 ( J)**0* 

CONTINUE 


IF(NPASS,NE# l)GO  TO  20 

CALL  L ABT AB (LABEL# PC OUNT#  NK) 

IF(A ORES 2(1:1), EQ«* ( #) ADRES 2s* $0000* 
GO  TO  30 

CALL  LABAD(ADRES1,ADRES2) 

CALL  DIGHEX(PCOUNT,HEXM) 


a 


IF(ADRESl(l:l)„NE,*#«)GO  TO  90 
DO  35  J«2#9 
M*J 

lF(ADRESl(J:J),NE,'0')Gb  TO  45 
CONTINUE 

IF(ADRES1(M|M).NE,«8*)G0  TO  50 
DO  48  Js 1 #  3 
DAT(J)s*0« 

CONTINUE 
GO  TO  55 

CALL  ADRLOC(ADRESl(M:M)#DAT) 

CALL  TADR(ADRES2, MODE# REG, NUM, TYPE# FLG) 

DO  60  J»l#3 

BINKJ)sREG(J) 

BIN1( J*3)=MODECJ) 

BINi ( J*9) sOAT ( J) 

CONTINUE 

BINi(13)*'l* 

BINl(l5)s*l* 

IF (OPERAT (5l5)#NE#*B*)G0  TO  70 
GO  TO  95 

IF(0PERAT(5l5).NE,*L*)G0  TO  80 

BXN1 (8) s* l 4  A30 


»  •  v 


uu  10  Si 

IF(0PERAT(5:5).NE,*W*)G0  TO  90 
BINl (7) ■* 1  * 

SO  TO  95 

WRITE (5# 100) OPER AT 

FORMAT! IX, 'IMPROPER  SIZE  SPEC  OR  ADDRESSING  MODE  FOR 

STOP 

NWOROSsl 

PC0UNTsPC0UNT*2 

IF(FLG,NE,1)G0  TO  150 

CALL  NUMBIN(NUM,BIN32,BIN2,NZ) 

NW0RDS=2 

PCOUNTsPCOUNT+2 

RETURN 

END 


IMMEDIATE  ADD,AND,ORR,EOR 

SUBROUTINE  IMMEt LABEL# OPER A T, ADRES 1 , ADRES2, PCOUNT, 
SNW0RDS,HEXM,BIN1,BIN2,BIN3) 

COMMON/BLOCK 1/NPASS 
CHARACTER**  LABEL/ OPFRAT 
CHAR ACTER*9  ADRES 1 , ADRES2 

CHARACTER*!  BINl (1 6) , BIN2 C 16) , BIN3 ( 16) , BIN32 ( 32) 
CHARACTER* 1  HEXM(«),REG(3),M0DE(3),TYPE 
INTEGER  FLG,  NWORDS, NPASS 
INTEGER*/!  PCOUNT, NUM1,NUM2 
IF(NPASS,NE,1)G0  TO  20 

CALL  LAST  AB( LABEL, PCOUNT , NK) 

IF(A0RES2(1:1) tEQ.*(*)ADRES2s*S0000* 

GO  TO  30 

CALL  LABADI ADRES 1,  ADRES 2) 

CALL  DIGHEXt PCOUNT , HEXM) 

IF (ADRES l ( lll)«NE*"9*)G0  TO  200 
DO  40  J=i, 16 
8INl(J)s*0* 

CONTINUE 

IF(0PERAT(1I3),NE,*0RR*)G0  TO  45 
GO  TO  100 

IF(0PERAT(U3),NE,*E0R*)GQ  TO  50 
BINl (12)8*1* 

BINl(10)a*l« 

60  TO  100 

IF  (OPER  AJ  (ll3)«NE«*CMP*)G0  TO  60 
BINKUJsM* 

BINl ( 12) ** 1  * 

GO  TO  100 

IF (OPER AT (ll3),NE,*AND*)G0  TO  70 
BINl ( 10)**  1  * 

GO  TO  100 

IF( OPER AT ( 1 1 3) , NE, * ADO* ) GO  TO  75 
BINK10)**!* 

BINl ( 1 1 ) ** 1  * 

GO  TO  100 

IF (OPER AT (1I3),NE,*SUB*)GQ  TO  80 
BINl ( 1 l) »* l * 

GO  TO  100 
WRITE (5, 90) OPER AT 

FORMAT! IX, 'UNRECOGNIZED  COMMAND  i*.A6) 

STOP 

I  NM0RDS«2 

PCOUNT«PCOUNT*4 

IF(0PERAT(5l5).NE,*B*)G0  TO  110 
GO  TO  135 

I  IF (OPER AT (5l5),NE**W*)G0  TO  200  A31 


\JM 


0IN1 C7J  =  * 1  * 

CALL  T ADR (ADRESl, MODE, REG, NUM1, TYPE, FLG) 

CALL  TADR(ADRES2, MODE, REG, NUH2, TYPE, FLG) 

CALL  NUMBIN(NUM1,BIN32,BIN2,NZ) 

DO  140  J=  1 , 3 

BZN1 ( J) sREGC J) 

BIN1< J+3)=MODE(J) 

CONTINUE 

IF (FLG. EQ ( 0) GO  TO  160 

CALL  NUMBIN(NUM2,BlN32,BtN3,NZ) 

NW0R0SS3 

PCOUNTaPCOUNT+2 

RETURN 

*RITE(5,210)OPERAT 

FORMAT ( *  IMPROPER  SIZE  SPEC  OR  ADDRESSING  MODE  FUR  :',A6) 

STOP 

END 
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FRONT  PANEL 
PORTS  1  &  2 
PIN  NUMBER 

MODULE  J1 
PIN  NUMBER 

SIGNAL 

MNEMONIC 

SIGNAL  NAME  AND  DESCRIPTION 

2 

3,28 

T*D 

TRANSMITTED  DATA  -  Serial  binary  data 
output. 

3 

5,30 

RxD 

RECEIVED  DATA  -  Serial  binary  data  input. 

4 

7,32 

RTS 

REQUEST  TO  SEND  -  A  signal  denoting 
terminal  has  data  to  send. 

5 

9,34 

CTS 

CLEAR  TO  SEND  -  A  signal  that  .indicates 
the  terminal  can  transmit  data. 

6 

11,36 

DSR 

DATA  SET  READY  -  A  signal  denoting  the 
modem  is  ready  (off  the  hook) . 

7 

13,38 

SIG  GND 

SIGNAL  GROUND 

8 

15,40 

DCD 

DATA  CARRIER  DETECT  -  A  Signal  that 
indicates  to  the  terminal  that  a  carrier 
is  present. 

15 

4,29 

T5cC 

TRANSMITTER  CLOCK  -  (DCE  Source)  A  signal 
that  provides  timing  information  for 
transmitted  data. 

17 

8,33 

RxC 

RECEIVER  CLOCK  -  A  signal  that  provides 
timing  information  for  received  data. 

20 

14,39 

DTR 

DATA  TERMINAL  READY  -  A  signal  that 
denotes  the  terminal  is  ready  to  transmit 
or  receive  data. 

22 

18,43 

RI 

RING  INDICATOR  *  A  signal  to  DTE  that 
denotes  the  modem  is  receiving  a  ringing 
signal. 

24 

22,47 

T*C 

TRANSMITTER  CLOCK  -  (DTE  Source)  A  signal 
that  provides  timing  information  for 
transmitted  data. 
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HEADER 

FUNCTION 

JuHpa 

CONFIGURATION 

J2 

Port 

2  TxC  select 

1-2 

J3 

Port 

2  external  clock  select 

No  jumpers 

J4 

Port 

2  internal  clock  select 

1-2,  3-4, 

9-10,  11-12 

J5 

Interrupt  level  select 

3-5,  9-11,  15-17 

J6 

Base 

address  select 

7-8 

J7 

Port 

2  CTS  flow  control 

5-7.  6-8 

J8 

Port 

2  to  modem  select 

13-^ 

J9 

Port 

2  to  terminal  select 

1-2,  3-4,  5-6,  7-8, 
9-10,  11-12,  13-14, 
15-16,  17-18,  19-20 

JIO 

Baud 

rate  port  1  and  2  select 

3-4,  5-6,9-10,  11-12 

Jll 

Port 

1  TxC  select 

1-2 

J12 

Port 

i  external  clock  select 

No  jumpers 

J13 

Port 

1  internal  clock  select 

1-2,  3-4, 

9-10,  11-12 

J14 

Port 

1  to  modem  select 

J15 

Port 

1  to  terminal  select 

1-2,  3-4,  5-6,  7-8, 
9-10,  11-12,  13-14, 
15-16,  17-18,  19-20 

J16 

Port 

l.CTS  flow  control 

5-7,  6-8 

DSP  Module  Header  Location  Diagram 


Compiling  Che  Cross-assembler  on  Che  HosC  System: 

The  cross-assembler  and  ics  subroucinesf T 

SUBS2.FTN 

SUBS3.FTN 

DCSUB.FTN 

MC68CRX.FTN 

These  must  be  compiled  in  FORTRAN  77  prior  Co 
Caskbuilding . 


Taskbuilding : 

After  compiling,  Che  subroutines  and  main  program  must  be 
taskbuilt  or  linked.  On  the  DEC  PDP11/45  with  the  RSX-11 
operating  system,  the  following  caskbuilding  session  may  be 
used : 

TKB 

MC68CRX/ CP/ FP-MC68CRX ,DCSUB,SUBDIR, UTLSUB , SUBS1 , SUBS  2 , 

SUBS3 .OPTSOB2 

/ 

UNITS- 12 
ACTFIL-6 

ASG-SYO :2:3:4:11,TI0:5 

// 
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(? 


MISSION 

of 

Rome  Air  Development  Center 

RAVC  plant  and  executet  earch,  development,  tett  and 
telected  acqultxtion  programt  -in  tuppoAt  Command,  ContA.cZ 
Coimurucateont  and  Intelligence  (C^lj  activitlet.  Technical 
and  engineering  t upport  uiithln  aneat  o{  technical  competence 
-a  provided  to  ESC  Program  0£4lcet  [POt )  and  otheA  ESV 
eZemente.  The  principal  technical  nation  great  one 
cormunlcationt ,  electromagnetic  guidance  and  contAoZ,  tun- 
'•'^iiZance  otf  gAound  and  aerotpace  object t,  intelligence  data 
colXectlon  and  handling,  information  tytlem  technology, 
talid  ttate  tciencet,  electAomagncticA  and  electronic 
reliability,  maintainability  and  compatibility. 
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